Changeset 12651 for NEMO/releases/r4.0/r4.0-HEAD/src/SAS
- Timestamp:
- 2020-04-03T09:51:14+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/SAS/step.F90
r11536 r12651 74 74 75 75 #if defined key_agrif 76 IF( nstop > 0 ) return ! avoid to go further if an error was detected during previous time step 76 77 kstp = nit000 + Agrif_Nb_Step() 77 78 IF ( lk_agrif_debug ) THEN … … 104 105 #if defined key_agrif 105 106 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 106 ! AGRIF 107 ! AGRIF recursive integration 107 108 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 108 109 CALL Agrif_Integrate_ChildGrids( stp ) 109 110 IF( Agrif_NbStepint() == 0 ) THEN ! AGRIF Update from zoom N to zoom 1 then to Parent 111 #if defined key_si3 112 CALL Agrif_Update_ice( ) ! update sea-ice 113 #endif 114 ENDIF 115 #endif 116 110 #endif 117 111 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 118 112 ! Control … … 123 117 CALL dia_wri_state( 'output.abort' ) 124 118 ENDIF 125 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file 119 #if defined key_agrif 120 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 121 ! AGRIF update 122 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 123 IF( Agrif_NbStepint() == 0 .AND. nstop == 0 ) THEN ! AGRIF Update from zoom N to zoom 1 then to Parent 124 #if defined key_si3 125 CALL Agrif_Update_ice( ) ! update sea-ice 126 #endif 127 ENDIF 128 #endif 129 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 130 ! File manipulation at the end of the first time step 131 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 132 IF( kstp == nit000 ) CALL iom_close( numror ) ! close input ocean restart file 126 133 127 134 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.