Changeset 3701 for branches/2012/dev_MERGE_2012/NEMOGCM
- Timestamp:
- 2012-11-28T10:57:47+01:00 (11 years ago)
- Location:
- branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r3680 r3701 95 95 ENDIF 96 96 97 call flush(numout)98 97 REWIND( numnam ) ! Read Namelist namsbc 99 98 READ ( numnam, namsbc ) 100 call flush(numout)101 99 102 100 ! ! overwrite namelist parameter using CPP key information … … 268 266 ! ! forcing field computation ! 269 267 ! ! ---------------------------------------- ! 270 271 CALL iom_setkt( kt + nn_fsbc - 1 ) ! in sbc, iom_put is called every nn_fsbc time step272 268 ! 273 269 IF( ln_apr_dyn ) CALL sbc_apr( kt ) ! atmospheric pressure provided at kt+0.5*nn_fsbc … … 377 373 ENDIF 378 374 ! 379 CALL iom_setkt( kt ) ! iom_put outside of sbc is called at every time step380 !381 375 CALL iom_put( "utau", utau ) ! i-wind stress (stress can be updated at 382 376 CALL iom_put( "vtau", vtau ) ! j-wind stress each time step in sea-ice) -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3680 r3701 79 79 USE lib_mpp ! distributed memory computing 80 80 #if defined key_iomput 81 USE mod_ioclient81 USE xios 82 82 #endif 83 83 USE sbctide, ONLY: lk_tide … … 199 199 CALL cpl_prism_finalize ! end coupling and mpp communications with OASIS 200 200 #else 201 # if defined key_iomput 202 IF( Agrif_Root() ) THEN 203 CALL xios_finalize ! end mpp communications 204 ENDIF 205 # else 201 206 IF( lk_mpp ) CALL mppstop ! end mpp communications 207 # endif 202 208 #endif 203 209 ! … … 233 239 IF( Agrif_Root() ) THEN 234 240 # if defined key_oasis3 || defined key_oasis4 235 CALL cpl_prism_init( ilocal_comm ) ! nemo local communicator given by oasis 241 CALL cpl_prism_init( ilocal_comm ) ! nemo local communicator given by oasis 242 CALL xios_initialize( "oceanx",local_comm=ilocal_comm ) 243 # else 244 CALL xios_initialize( "nemo",return_comm=ilocal_comm ) 236 245 # endif 237 CALL init_ioclient( ilocal_comm ) ! exchange io_server nemo local communicator with the io_server238 246 ENDIF 239 247 narea = mynode( cltxt, numnam, nstop, ilocal_comm ) ! Nodes selection -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/step.F90
r3680 r3701 90 90 indic = 0 ! reset to no error condition 91 91 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 92 CALL iom_setkt( kstp ) ! say to iom that we are at time step kstp92 CALL iom_setkt( kstp - nit000 + 1 ) ! say to iom that we are at time step kstp 93 93 94 94 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.