- Timestamp:
- 2017-10-30T12:44:29+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r8612 r8668 1176 1176 ! 1177 1177 IF( MIN( id1, id2, id3, id4, id5, id6 ) > 0 ) THEN ! all required arrays exist 1178 CALL iom_get( numror, jpdom_autoglo, 'en' , en, l rxios = lxios_read )1179 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt, l rxios = lxios_read )1180 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm, l rxios = lxios_read )1181 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, l rxios = lxios_read )1182 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, l rxios = lxios_read )1183 CALL iom_get( numror, jpdom_autoglo, 'mxln' , mxln, l rxios = lxios_read )1178 CALL iom_get( numror, jpdom_autoglo, 'en' , en, ldxios = lxios_read ) 1179 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt, ldxios = lxios_read ) 1180 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm, ldxios = lxios_read ) 1181 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lxios_read ) 1182 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lxios_read ) 1183 CALL iom_get( numror, jpdom_autoglo, 'mxln' , mxln, ldxios = lxios_read ) 1184 1184 ELSE 1185 1185 IF(lwp) WRITE(numout,*) ' ===>>>> : previous run without gls scheme, en and mxln computed by iterative loop'
Note: See TracChangeset
for help on using the changeset viewer.