- Timestamp:
- 2017-12-12T11:41:19+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_METO_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r8924 r8987 1140 1140 CALL gls_rst( nit000, 'READ' ) !* read or initialize all required files 1141 1141 ! 1142 IF( lwxios ) THEN 1143 CALL iom_set_rstw_var_active('en') 1144 CALL iom_set_rstw_var_active('avt') 1145 CALL iom_set_rstw_var_active('avm') 1146 CALL iom_set_rstw_var_active('avmu') 1147 CALL iom_set_rstw_var_active('avmv') 1148 CALL iom_set_rstw_var_active('mxln') 1149 ENDIF 1150 1142 1151 IF( nn_timing == 1 ) CALL timing_stop('zdf_gls_init') 1143 1152 ! … … 1175 1184 ! 1176 1185 IF( MIN( id1, id2, id3, id4, id5, id6 ) > 0 ) THEN ! all required arrays exist 1177 CALL iom_get( numror, jpdom_autoglo, 'en' , en )1178 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt )1179 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm )1180 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu )1181 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv )1182 CALL iom_get( numror, jpdom_autoglo, 'mxln' , mxln )1186 CALL iom_get( numror, jpdom_autoglo, 'en' , en, ldxios = lrxios ) 1187 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt, ldxios = lrxios ) 1188 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm, ldxios = lrxios ) 1189 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lrxios ) 1190 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lrxios ) 1191 CALL iom_get( numror, jpdom_autoglo, 'mxln' , mxln, ldxios = lrxios ) 1183 1192 ELSE 1184 1193 IF(lwp) WRITE(numout,*) ' ===>>>> : previous run without gls scheme, en and mxln computed by iterative loop' … … 1200 1209 ! ! ------------------- 1201 1210 IF(lwp) WRITE(numout,*) '---- gls-rst ----' 1202 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 1203 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k ) 1204 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k ) 1205 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k ) 1206 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 1207 CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln ) 1211 IF( lwxios ) CALL iom_swap( cwxios_context ) 1212 CALL iom_rstput( kt, nitrst, numrow, 'en' , en, ldxios = lwxios ) 1213 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k, ldxios = lwxios ) 1214 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k, ldxios = lwxios ) 1215 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, ldxios = lwxios ) 1216 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, ldxios = lwxios ) 1217 CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln, ldxios = lwxios ) 1218 IF( lwxios ) CALL iom_swap( cxios_context ) 1208 1219 ! 1209 1220 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.