Changeset 15145 for NEMO/trunk/src/OCE/ZDF

Timestamp:

2021-07-26T18:16:45+02:00 (3 years ago)

Author:

smasson

Message:

trunk: pass all sette tests in debug with nn_hls = 2

File:

• NEMO/trunk/src/OCE/ZDF/zdfgls.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/ZDF/zdfgls.F90

@@ -1246 +1246 @@
             !
             IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN        ! all required arrays exist
-               CALL iom_get( numror, jpdom_auto, 'en'    , en     )
+               CALL iom_get( numror, jpdom_auto, 'en'    , en   , kfill = jpfillcopy  )   ! we devide by en -> must be != 0.
                CALL iom_get( numror, jpdom_auto, 'avt_k' , avt_k  )
                CALL iom_get( numror, jpdom_auto, 'avm_k' , avm_k  )
-               CALL iom_get( numror, jpdom_auto, 'hmxl_n', hmxl_n )
+               CALL iom_get( numror, jpdom_auto, 'hmxl_n', hmxl_n, kfill = jpfillcopy )   ! we devide by hmxl_n -> must be != 0.
             ELSE
                IF(lwp) WRITE(numout,*)