- Timestamp:
- 2020-04-11T15:38:38+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/ICE/icerst.F90
r12377 r12738 211 211 212 212 ! --- mandatory fields --- ! 213 CALL iom_get( numrir, jpdom_auto glo, 'v_i' , v_i )214 CALL iom_get( numrir, jpdom_auto glo, 'v_s' , v_s )215 CALL iom_get( numrir, jpdom_auto glo, 'sv_i' , sv_i )216 CALL iom_get( numrir, jpdom_auto glo, 'a_i' , a_i )217 CALL iom_get( numrir, jpdom_auto glo, 't_su' , t_su )218 CALL iom_get( numrir, jpdom_auto glo, 'u_ice', u_ice)219 CALL iom_get( numrir, jpdom_auto glo, 'v_ice', v_ice)213 CALL iom_get( numrir, jpdom_auto, 'v_i' , v_i ) 214 CALL iom_get( numrir, jpdom_auto, 'v_s' , v_s ) 215 CALL iom_get( numrir, jpdom_auto, 'sv_i' , sv_i ) 216 CALL iom_get( numrir, jpdom_auto, 'a_i' , a_i ) 217 CALL iom_get( numrir, jpdom_auto, 't_su' , t_su ) 218 CALL iom_get( numrir, jpdom_auto, 'u_ice', u_ice, cd_type = 'U', psgn = -1._wp ) 219 CALL iom_get( numrir, jpdom_auto, 'v_ice', v_ice, cd_type = 'V', psgn = -1._wp ) 220 220 ! Snow enthalpy 221 221 DO jk = 1, nlay_s 222 222 WRITE(zchar1,'(I2.2)') jk 223 223 znam = 'e_s'//'_l'//zchar1 224 CALL iom_get( numrir, jpdom_auto glo, znam , z3d )224 CALL iom_get( numrir, jpdom_auto, znam , z3d ) 225 225 e_s(:,:,jk,:) = z3d(:,:,:) 226 226 END DO … … 229 229 WRITE(zchar1,'(I2.2)') jk 230 230 znam = 'e_i'//'_l'//zchar1 231 CALL iom_get( numrir, jpdom_auto glo, znam , z3d )231 CALL iom_get( numrir, jpdom_auto, znam , z3d ) 232 232 e_i(:,:,jk,:) = z3d(:,:,:) 233 233 END DO … … 236 236 id1 = iom_varid( numrir, 'oa_i' , ldstop = .FALSE. ) 237 237 IF( id1 > 0 ) THEN ! fields exist 238 CALL iom_get( numrir, jpdom_auto glo, 'oa_i', oa_i )238 CALL iom_get( numrir, jpdom_auto, 'oa_i', oa_i ) 239 239 ELSE ! start from rest 240 240 IF(lwp) WRITE(numout,*) ' ==>> previous run without ice age output then set it to zero' … … 244 244 id2 = iom_varid( numrir, 'a_ip' , ldstop = .FALSE. ) 245 245 IF( id2 > 0 ) THEN ! fields exist 246 CALL iom_get( numrir, jpdom_auto glo, 'a_ip' , a_ip )247 CALL iom_get( numrir, jpdom_auto glo, 'v_ip' , v_ip )246 CALL iom_get( numrir, jpdom_auto, 'a_ip' , a_ip ) 247 CALL iom_get( numrir, jpdom_auto, 'v_ip' , v_ip ) 248 248 ELSE ! start from rest 249 249 IF(lwp) WRITE(numout,*) ' ==>> previous run without melt ponds output then set it to zero' … … 256 256 id4 = iom_varid( numrir, 't1_ice' , ldstop = .FALSE. ) 257 257 IF( id3 > 0 .AND. id4 > 0 ) THEN ! fields exist 258 CALL iom_get( numrir, jpdom_auto glo, 'cnd_ice', cnd_ice )259 CALL iom_get( numrir, jpdom_auto glo, 't1_ice' , t1_ice )258 CALL iom_get( numrir, jpdom_auto, 'cnd_ice', cnd_ice ) 259 CALL iom_get( numrir, jpdom_auto, 't1_ice' , t1_ice ) 260 260 ELSE ! start from rest 261 261 IF(lwp) WRITE(numout,*) ' ==>> previous run without conductivity output then set it to zero'
Note: See TracChangeset
for help on using the changeset viewer.