- Timestamp:
- 2020-11-09T16:48:35+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/test_12905_xios_restart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/test_12905_xios_restart
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 8 9 9 # SETTE 10 ^/utils/CI/ r12931_sette_ticket2462@HEADsette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/test_12905_xios_restart/src/OCE/IOM/restart.F90
r12969 r13751 116 116 clpname = TRIM(Agrif_CFixed())//"_"//clname 117 117 ENDIF 118 CALL iom_init( cwxios_context, TRIM(clpath)//TRIM(clpname), ld_tmppatch = .false.,& 119 ld_closedef = .FALSE. ) 118 CALL iom_init( cwxios_context, fname = TRIM(clpath)//TRIM(clpname), ld_closedef = .false. ) 120 119 CALL iom_swap( cxios_context ) 121 120 #else … … 221 220 ENDIF 222 221 CALL iom_init( crxios_context, fname = TRIM(clpath)//TRIM(clpname), & 223 idfp = iom_file(numror)%nfid, ld_ tmppatch= .TRUE. )222 idfp = iom_file(numror)%nfid, ld_closedef = .TRUE. ) 224 223 ENDIF 225 224 … … 261 260 262 261 ! Diurnal DSST 263 IF( ln_diurnal ) CALL iom_get( numror, jpdom_auto glo, 'Dsst' , x_dsst, ldxios = lroxios )262 IF( ln_diurnal ) CALL iom_get( numror, jpdom_auto, 'Dsst' , x_dsst, ldxios = lroxios ) 264 263 IF ( ln_diurnal_only ) THEN 265 264 IF(lwp) WRITE( numout, * ) & 266 265 & "rst_read:- ln_diurnal_only set, setting rhop=rho0" 267 266 rhop = rho0 268 CALL iom_get( numror, jpdom_auto glo, 'tn' , w3d, ldxios = lroxios )267 CALL iom_get( numror, jpdom_auto, 'tn' , w3d, ldxios = lroxios ) 269 268 ts(:,:,1,jp_tem,Kmm) = w3d(:,:,1) 270 269 RETURN … … 272 271 273 272 IF( iom_varid( numror, 'ub', ldstop = .FALSE. ) > 0 ) THEN 274 CALL iom_get( numror, jpdom_autoglo, 'ub' , uu(:,:,: ,Kbb), ldxios = lroxios ) ! before fields 275 CALL iom_get( numror, jpdom_autoglo, 'vb' , vv(:,:,: ,Kbb), ldxios = lroxios ) 276 CALL iom_get( numror, jpdom_autoglo, 'tb' , ts(:,:,:,jp_tem,Kbb), ldxios = lroxios ) 277 CALL iom_get( numror, jpdom_autoglo, 'sb' , ts(:,:,:,jp_sal,Kbb), ldxios = lroxios ) 278 CALL iom_get( numror, jpdom_autoglo, 'sshb' ,ssh(:,: ,Kbb), ldxios = lroxios ) 273 ! before fields 274 CALL iom_get( numror, jpdom_auto, 'ub' , uu(:,:,: ,Kbb), ldxios = lrxios, cd_type = 'U', psgn = -1._wp ) 275 CALL iom_get( numror, jpdom_auto, 'vb' , vv(:,:,: ,Kbb), ldxios = lrxios, cd_type = 'V', psgn = -1._wp ) 276 CALL iom_get( numror, jpdom_auto, 'tb' , ts(:,:,:,jp_tem,Kbb), ldxios = lrxios ) 277 CALL iom_get( numror, jpdom_auto, 'sb' , ts(:,:,:,jp_sal,Kbb), ldxios = lrxios ) 278 CALL iom_get( numror, jpdom_auto, 'sshb' ,ssh(:,: ,Kbb), ldxios = lrxios ) 279 279 ELSE 280 280 l_1st_euler = .TRUE. ! before field not found, forced euler 1st time-step 281 281 ENDIF 282 282 ! 283 CALL iom_get( numror, jpdom_autoglo, 'un' , uu(:,:,: ,Kmm), ldxios = lroxios ) ! now fields 284 CALL iom_get( numror, jpdom_autoglo, 'vn' , vv(:,:,: ,Kmm), ldxios = lroxios ) 285 CALL iom_get( numror, jpdom_autoglo, 'tn' , ts(:,:,:,jp_tem,Kmm), ldxios = lroxios ) 286 CALL iom_get( numror, jpdom_autoglo, 'sn' , ts(:,:,:,jp_sal,Kmm), ldxios = lroxios ) 287 CALL iom_get( numror, jpdom_autoglo, 'sshn' ,ssh(:,: ,Kmm), ldxios = lroxios ) 283 ! now fields 284 CALL iom_get( numror, jpdom_auto, 'un' , uu(:,:,: ,Kmm), ldxios = lrxios, cd_type = 'U', psgn = -1._wp ) 285 CALL iom_get( numror, jpdom_auto, 'vn' , vv(:,:,: ,Kmm), ldxios = lrxios, cd_type = 'V', psgn = -1._wp ) 286 CALL iom_get( numror, jpdom_auto, 'tn' , ts(:,:,:,jp_tem,Kmm), ldxios = lrxios ) 287 CALL iom_get( numror, jpdom_auto, 'sn' , ts(:,:,:,jp_sal,Kmm), ldxios = lrxios ) 288 CALL iom_get( numror, jpdom_auto, 'sshn' ,ssh(:,: ,Kmm), ldxios = lrxios ) 288 289 IF( iom_varid( numror, 'rhop', ldstop = .FALSE. ) > 0 ) THEN 289 CALL iom_get( numror, jpdom_auto glo, 'rhop' , rhop, ldxios = lroxios ) ! now potential density290 CALL iom_get( numror, jpdom_auto, 'rhop' , rhop, ldxios = lroxios ) ! now potential density 290 291 ELSE 291 292 CALL eos( ts(:,:,:,:,Kmm), rhd, rhop, gdept(:,:,:,Kmm) ) … … 298 299 vv (:,:,: ,Kbb) = vv (:,:,: ,Kmm) 299 300 ssh (:,: ,Kbb) = ssh (:,: ,Kmm) 300 !301 IF( .NOT.ln_linssh ) THEN302 DO jk = 1, jpk303 e3t(:,:,jk,Kbb) = e3t(:,:,jk,Kmm)304 END DO305 ENDIF306 !307 301 ENDIF 308 302 !
Note: See TracChangeset
for help on using the changeset viewer.