Changeset 12377 for NEMO/trunk/src/SAS/step.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/SAS/step.F90
r11536 r12377 49 49 50 50 !!---------------------------------------------------------------------- 51 !! time level indices 52 !!---------------------------------------------------------------------- 53 INTEGER, PUBLIC :: Nbb, Nnn, Naa, Nrhs !! used by nemo_init 54 !!---------------------------------------------------------------------- 51 55 !! NEMO/SAS 4.0 , NEMO Consortium (2018) 52 56 !! $Id$ … … 75 79 #if defined key_agrif 76 80 kstp = nit000 + Agrif_Nb_Step() 81 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 77 82 IF ( lk_agrif_debug ) THEN 78 83 IF ( Agrif_Root() .and. lwp) Write(*,*) '---' … … 96 101 ! From SAS: ocean bdy data are wrong (but we do not care) and ice bdy data are OK. 97 102 ! This is not clean and should be changed in the future. 98 IF( ln_bdy ) CALL bdy_dta ( kstp, kt_offset=+1 ) ! update dynamic & tracer data at open boundaries99 103 ! ==> 100 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) 104 IF( ln_bdy ) CALL bdy_dta( kstp, Nnn ) ! update dynamic & tracer data at open boundaries 105 CALL sbc ( kstp, Nbb, Nnn ) ! Sea Boundary Condition (including sea-ice) 101 106 102 CALL dia_wri( kstp )! ocean model: outputs107 CALL dia_wri( kstp, Nnn ) ! ocean model: outputs 103 108 104 109 #if defined key_agrif … … 121 126 IF( indic < 0 ) THEN 122 127 CALL ctl_stop( 'step: indic < 0' ) 123 CALL dia_wri_state( 'output.abort' )128 CALL dia_wri_state( 'output.abort', Nnn ) 124 129 ENDIF 125 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file130 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file 126 131 127 132 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 128 133 ! Coupled mode 129 134 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 130 IF( lk_oasis ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges if OASIS-coupled ice135 IF( lk_oasis ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges if OASIS-coupled ice 131 136 132 137 #if defined key_iomput
Note: See TracChangeset
for help on using the changeset viewer.