CESM2 water hosing experiment

[Ji-Hoon Oh]

Hi! I'm currently planning to do a water hosing experiment (mimicking Antarctic meltwater) using the CESM2.1.3 model.
I just read the CESM2.1.3 FAQ and found the method (change below code in forcing_coupled.F90.

But, I'm not sure how I can change the freshwater in specific region in this code...
Does anyone know how I would modify the code if I wanted to add freshwater to specific region?

!$OMP PARALLEL DO PRIVATE(iblock)
do iblock = 1, nblocks_clinic
STF(:,:,2,iblock) = RCALCT(:,:,iblock)*( &
(PREC_F(:,:,iblock)+EVAP_F(:,:,iblock)+ &
MELT_F(:,:,iblock)+ROFF_F(:,:,iblock)+IOFF_F(:,:,iblock))*salinity_factor &
+ SALT_F(:,:,iblock)*sflux_factor)
enddo
!$OMP END PARALLEL DO

Thanks!

 

[dbailey]

This looks correct, but I will get Aixue Hue to chime in.

 

[Peixi]

Hi! Have you solved this problem? Could you share your methods with me? Thank you very much!

 

[tobeawarrior]

Hi,did you solve this problem? I have the same problem.

 

[antonioroblesucm]

This should work fine inside the loop, at least for me it worked !

where ( TLATD(:,:,iblock) >= lat1_POP_r8 .and. TLATD(:,:,iblock) <= lat2_POP_r8 &
.and. TLOND(:,:,iblock) >= lon1_POP_r8 .and. TLOND(:,:,iblock) <= lon2_POP_r8 )
PREC_F(:,:,iblock) = PREC_F(:,:,iblock) + 0.00006_POP_r8 ! kg/m2/s

end where

Cheers, Antonio