- Timestamp:
- 2020-04-11T15:38:38+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfdrg.F90
r12586 r12738 362 362 ! cl_varname is a coefficient in [0,1] giving where to apply the regional boost 363 363 CALL iom_open ( TRIM(cl_file), inum ) 364 CALL iom_get ( inum, jpdom_ data, TRIM(cl_varname), zmsk_boost, 1 )364 CALL iom_get ( inum, jpdom_global, TRIM(cl_varname), zmsk_boost, 1 ) 365 365 CALL iom_close( inum) 366 366 zmsk_boost(:,:) = 1._wp + rn_boost * zmsk_boost(:,:) -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfgls.F90
r12489 r12738 1065 1065 ! 1066 1066 IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN ! all required arrays exist 1067 CALL iom_get( numror, jpdom_auto glo, 'en' , en , ldxios = lrxios )1068 CALL iom_get( numror, jpdom_auto glo, 'avt_k' , avt_k , ldxios = lrxios )1069 CALL iom_get( numror, jpdom_auto glo, 'avm_k' , avm_k , ldxios = lrxios )1070 CALL iom_get( numror, jpdom_auto glo, 'hmxl_n', hmxl_n, ldxios = lrxios )1067 CALL iom_get( numror, jpdom_auto, 'en' , en , ldxios = lrxios ) 1068 CALL iom_get( numror, jpdom_auto, 'avt_k' , avt_k , ldxios = lrxios ) 1069 CALL iom_get( numror, jpdom_auto, 'avm_k' , avm_k , ldxios = lrxios ) 1070 CALL iom_get( numror, jpdom_auto, 'hmxl_n', hmxl_n, ldxios = lrxios ) 1071 1071 ELSE 1072 1072 IF(lwp) WRITE(numout,*) -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfosm.F90
r12489 r12738 1461 1461 id1 = iom_varid( numror, 'wn' , ldstop = .FALSE. ) 1462 1462 IF( id1 > 0 ) THEN ! 'wn' exists; read 1463 CALL iom_get( numror, jpdom_auto glo, 'wn', ww, ldxios = lrxios )1463 CALL iom_get( numror, jpdom_auto, 'wn', ww, ldxios = lrxios ) 1464 1464 WRITE(numout,*) ' ===>>>> : ww read from restart file' 1465 1465 ELSE … … 1470 1470 id2 = iom_varid( numror, 'hbli' , ldstop = .FALSE. ) 1471 1471 IF( id1 > 0 .AND. id2 > 0) THEN ! 'hbl' exists; read and return 1472 CALL iom_get( numror, jpdom_auto glo, 'hbl' , hbl , ldxios = lrxios )1473 CALL iom_get( numror, jpdom_auto glo, 'hbli', hbli, ldxios = lrxios )1472 CALL iom_get( numror, jpdom_auto, 'hbl' , hbl , ldxios = lrxios ) 1473 CALL iom_get( numror, jpdom_auto, 'hbli', hbli, ldxios = lrxios ) 1474 1474 WRITE(numout,*) ' ===>>>> : hbl & hbli read from restart file' 1475 1475 RETURN -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfric.F90
r12489 r12738 214 214 ! 215 215 IF( MIN( id1, id2 ) > 0 ) THEN ! restart exists => read it 216 CALL iom_get( numror, jpdom_auto glo, 'avt_k', avt_k, ldxios = lrxios )217 CALL iom_get( numror, jpdom_auto glo, 'avm_k', avm_k, ldxios = lrxios )216 CALL iom_get( numror, jpdom_auto, 'avt_k', avt_k, ldxios = lrxios ) 217 CALL iom_get( numror, jpdom_auto, 'avm_k', avm_k, ldxios = lrxios ) 218 218 ENDIF 219 219 ENDIF -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdftke.F90
r12489 r12738 674 674 ! 675 675 IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN ! fields exist 676 CALL iom_get( numror, jpdom_auto glo, 'en' , en , ldxios = lrxios )677 CALL iom_get( numror, jpdom_auto glo, 'avt_k', avt_k, ldxios = lrxios )678 CALL iom_get( numror, jpdom_auto glo, 'avm_k', avm_k, ldxios = lrxios )679 CALL iom_get( numror, jpdom_auto glo, 'dissl', dissl, ldxios = lrxios )676 CALL iom_get( numror, jpdom_auto, 'en' , en , ldxios = lrxios ) 677 CALL iom_get( numror, jpdom_auto, 'avt_k', avt_k, ldxios = lrxios ) 678 CALL iom_get( numror, jpdom_auto, 'avm_k', avm_k, ldxios = lrxios ) 679 CALL iom_get( numror, jpdom_auto, 'dissl', dissl, ldxios = lrxios ) 680 680 ELSE ! start TKE from rest 681 681 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.