- Timestamp:
- 2020-04-11T15:38:38+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.