- Timestamp:
- 2015-07-10T13:28:53+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/SAS_SRC/step.F90
- Property svn:keywords set to Id
r4166 r5581 17 17 USE dom_oce ! ocean space and time domain variables 18 18 USE in_out_manager ! I/O manager 19 USE sbc_oce 20 USE sbccpl 19 21 USE iom ! 20 22 USE lbclnk … … 36 38 USE timing ! Timing 37 39 40 USE bdy_par ! clem: mandatory for LIM3 41 #if defined key_bdy 42 USE bdydta ! clem: mandatory for LIM3 43 #endif 44 38 45 IMPLICIT NONE 39 46 PRIVATE … … 46 53 !!---------------------------------------------------------------------- 47 54 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 48 !! $Id : step.F90 3294 2012-01-28 16:44:18Z rblod$55 !! $Id$ 49 56 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 50 57 !!---------------------------------------------------------------------- … … 72 79 kstp = nit000 + Agrif_Nb_Step() 73 80 # if defined key_iomput 74 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( "nemo")81 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 75 82 # endif 76 83 #endif 77 IF( kstp == nit000 ) CALL iom_init( "nemo" )! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)84 IF( kstp == nit000 ) CALL iom_init( cxios_context ) ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 78 85 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 79 CALL iom_setkt( kstp , "nemo" ) ! say to iom thatwe are at time step kstp86 CALL iom_setkt( kstp - nit000 + 1, cxios_context ) ! tell iom we are at time step kstp 80 87 88 ! ==> clem: open boundaries is mandatory for LIM3 because ice BDY is not decoupled from 89 ! the environment of ocean BDY. Therefore bdy is called in both OPA and SAS modules. 90 ! From SAS: ocean bdy data are wrong (but we do not care) and ice bdy data are OK. 91 ! This is not clean and should be changed in the future. 92 #if defined key_bdy 93 IF( lk_bdy ) CALL bdy_dta ( kstp, time_offset=+1 ) ! update dynamic & tracer data at open boundaries 94 #endif 95 ! ==> 81 96 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) 82 97 … … 86 101 ! need to keep the same interface 87 102 CALL stp_ctl( kstp, indic ) 103 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 104 ! Coupled mode 105 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 106 IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges if OASIS-coupled ice 107 88 108 #if defined key_iomput 89 IF( kstp == nitend ) CALL iom_context_finalize( "nemo" ) ! needed for XIOS+AGRIF 109 IF( kstp == nitend .OR. indic < 0 ) THEN 110 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 111 ENDIF 90 112 #endif 91 113 !
Note: See TracChangeset
for help on using the changeset viewer.