- Timestamp:
- 2019-11-22T12:33:20+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/ABL/ablrst.F90
r11858 r11945 168 168 CALL iom_get( numrar, jpdom_autoglo, 'v_abl', v_abl(:,:,:,nt_n ) ) 169 169 CALL iom_get( numrar, jpdom_autoglo, 't_abl', tq_abl(:,:,:,nt_n,jp_ta) ) 170 tq_abl(:,:,:,nt_n,jp_ta) = MAX( 0.1_wp, tq_abl(:,:,:,nt_n,jp_ta) )171 170 CALL iom_get( numrar, jpdom_autoglo, 'q_abl', tq_abl(:,:,:,nt_n,jp_qa) ) 172 171 CALL iom_get( numrar, jpdom_autoglo, 'tke_abl', tke_abl(:,:,:,nt_n ) )
Note: See TracChangeset
for help on using the changeset viewer.