- Timestamp:
- 2018-02-28T17:23:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r9124 r9367 1123 1123 CALL gls_rst( nit000, 'READ' ) ! (en, avt_k, avm_k, hmxl_n) 1124 1124 ! 1125 IF( lwxios ) THEN 1126 CALL iom_set_rstw_var_active('en') 1127 CALL iom_set_rstw_var_active('avt_k') 1128 CALL iom_set_rstw_var_active('avm_k') 1129 CALL iom_set_rstw_var_active('hmxl_n') 1130 ENDIF 1131 ! 1125 1132 END SUBROUTINE zdf_gls_init 1126 1133 … … 1156 1163 ! 1157 1164 IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN ! all required arrays exist 1158 CALL iom_get( numror, jpdom_autoglo, 'en' , en )1159 CALL iom_get( numror, jpdom_autoglo, 'avt_k' , avt_k )1160 CALL iom_get( numror, jpdom_autoglo, 'avm_k' , avm_k )1161 CALL iom_get( numror, jpdom_autoglo, 'hmxl_n', hmxl_n )1165 CALL iom_get( numror, jpdom_autoglo, 'en' , en , ldxios = lrxios ) 1166 CALL iom_get( numror, jpdom_autoglo, 'avt_k' , avt_k , ldxios = lrxios ) 1167 CALL iom_get( numror, jpdom_autoglo, 'avm_k' , avm_k , ldxios = lrxios ) 1168 CALL iom_get( numror, jpdom_autoglo, 'hmxl_n', hmxl_n, ldxios = lrxios ) 1162 1169 ELSE 1163 1170 IF(lwp) WRITE(numout,*) … … 1178 1185 ! ! ------------------- 1179 1186 IF(lwp) WRITE(numout,*) '---- gls-rst ----' 1180 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 1181 CALL iom_rstput( kt, nitrst, numrow, 'avt_k' , avt_k ) 1182 CALL iom_rstput( kt, nitrst, numrow, 'avm_k' , avm_k ) 1183 CALL iom_rstput( kt, nitrst, numrow, 'hmxl_n', hmxl_n ) 1187 IF( lwxios ) CALL iom_swap( cwxios_context ) 1188 CALL iom_rstput( kt, nitrst, numrow, 'en' , en , ldxios = lwxios ) 1189 CALL iom_rstput( kt, nitrst, numrow, 'avt_k' , avt_k , ldxios = lwxios ) 1190 CALL iom_rstput( kt, nitrst, numrow, 'avm_k' , avm_k , ldxios = lwxios ) 1191 CALL iom_rstput( kt, nitrst, numrow, 'hmxl_n', hmxl_n, ldxios = lwxios ) 1192 IF( lwxios ) CALL iom_swap( cxios_context ) 1184 1193 ! 1185 1194 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.