- Timestamp:
- 2017-10-26T13:15:54+02:00 (7 years ago)
- Location:
- branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r8630 r8662 1343 1343 & ' data type: ' , sdf(jf)%cltype , & 1344 1344 & ' land/sea mask:' , TRIM( sdf(jf)%lsmname ) 1345 call flush(numout) 1345 1346 END DO 1346 1347 ENDIF -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r8651 r8662 169 169 IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 170 170 IF(lwp) WRITE(numout,*) '~~~~' 171 IF( lwxios ) CALL iom_swap( wxios_context )172 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib, l xios = lwxios )171 IF( lwxios ) CALL iom_swap( cwxios_context ) 172 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib, ldxios = lwxios ) 173 173 IF( lwxios ) CALL iom_swap( cxios_context ) 174 174 ENDIF -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r8651 r8662 233 233 & 'at it= ', kt,' date= ', ndastp 234 234 IF(lwp) WRITE(numout,*) '~~~~' 235 IF( lwxios ) CALL iom_swap( wxios_context )236 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:), l xios = lwxios )237 CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem), l xios = lwxios )238 CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal), l xios = lwxios )235 IF( lwxios ) CALL iom_swap( cwxios_context ) 236 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:), ldxios = lwxios ) 237 CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem), ldxios = lwxios ) 238 CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal), ldxios = lwxios ) 239 239 IF( lwxios ) CALL iom_swap( cxios_context ) 240 240 ENDIF -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8651 r8662 496 496 & 'at it= ', kt,' date= ', ndastp 497 497 IF(lwp) WRITE(numout,*) '~~~~' 498 IF( lwxios ) CALL iom_swap( wxios_context )499 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, l xios = lwxios )500 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau, l xios = lwxios )501 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns, l xios = lwxios )498 IF( lwxios ) CALL iom_swap( cwxios_context ) 499 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) 500 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau, ldxios = lwxios ) 501 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns, ldxios = lwxios ) 502 502 ! The 3D heat content due to qsr forcing is treated in traqsr 503 503 ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b' , qsr ) 504 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp, l xios = lwxios )505 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx, l xios = lwxios )504 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp, ldxios = lwxios ) 505 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx, ldxios = lwxios ) 506 506 IF( lwxios ) CALL iom_swap( cxios_context ) 507 507 ENDIF -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r8651 r8662 165 165 & 'at it= ', kt,' date= ', ndastp 166 166 IF(lwp) WRITE(numout,*) '~~~~' 167 IF( lwxios ) CALL iom_swap( wxios_context )168 CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf, l xios = lwxios )169 CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem), l xios = lwxios )170 CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal), l xios = lwxios )167 IF( lwxios ) CALL iom_swap( cwxios_context ) 168 CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf, ldxios = lwxios ) 169 CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem), ldxios = lwxios ) 170 CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal), ldxios = lwxios ) 171 171 IF( lwxios ) CALL iom_swap( cxios_context ) 172 172 ENDIF -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r8651 r8662 156 156 IF(lwp) WRITE(numout,*) '~~~~~~~' 157 157 zf_sbc = REAL( nn_fsbc, wp ) 158 IF( lwxios ) CALL iom_swap( wxios_context )159 CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc, l xios = lwxios ) ! sbc frequency160 CALL iom_rstput( kt, nitrst, numrow, 'ssu_m' , ssu_m, l xios = lwxios ) ! sea surface mean fields161 CALL iom_rstput( kt, nitrst, numrow, 'ssv_m' , ssv_m, l xios = lwxios )162 CALL iom_rstput( kt, nitrst, numrow, 'sst_m' , sst_m, l xios = lwxios )163 CALL iom_rstput( kt, nitrst, numrow, 'sss_m' , sss_m, l xios = lwxios )164 CALL iom_rstput( kt, nitrst, numrow, 'ssh_m' , ssh_m, l xios = lwxios )165 CALL iom_rstput( kt, nitrst, numrow, 'e3t_m' , e3t_m, l xios = lwxios )166 CALL iom_rstput( kt, nitrst, numrow, 'frq_m' , frq_m, l xios = lwxios )158 IF( lwxios ) CALL iom_swap( cwxios_context ) 159 CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc, ldxios = lwxios ) ! sbc frequency 160 CALL iom_rstput( kt, nitrst, numrow, 'ssu_m' , ssu_m, ldxios = lwxios ) ! sea surface mean fields 161 CALL iom_rstput( kt, nitrst, numrow, 'ssv_m' , ssv_m, ldxios = lwxios ) 162 CALL iom_rstput( kt, nitrst, numrow, 'sst_m' , sst_m, ldxios = lwxios ) 163 CALL iom_rstput( kt, nitrst, numrow, 'sss_m' , sss_m, ldxios = lwxios ) 164 CALL iom_rstput( kt, nitrst, numrow, 'ssh_m' , ssh_m, ldxios = lwxios ) 165 CALL iom_rstput( kt, nitrst, numrow, 'e3t_m' , e3t_m, ldxios = lwxios ) 166 CALL iom_rstput( kt, nitrst, numrow, 'frq_m' , frq_m, ldxios = lwxios ) 167 167 ! 168 168 IF( lwxios ) CALL iom_swap( cxios_context )
Note: See TracChangeset
for help on using the changeset viewer.