Changeset 10166 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/zdfiwm.F90

Timestamp:

2018-10-03T11:25:38+02:00 (6 years ago)

Author:

smasson

Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 1: add BENCh test case, see #2133

Location:

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH

Files:

• . (copied) (copied from NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/tests/BENCH)
• MY_SRC/zdfiwm.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/zdfiwm.F90

@@ -442 +442 @@
 !!$      CALL iom_get  (inum, jpdom_data, 'field', ebot_iwm, 1 ) 
 !!$      CALL iom_close(inum)
-      ebot_iwm(:,:) = 0.
+      ebot_iwm(:,:) = 1.e-6
       !
 !!$      CALL iom_open('mixing_power_pyc',inum)       ! energy flux for pynocline-intensified wave breaking [W/m2]
 !!$      CALL iom_get  (inum, jpdom_data, 'field', epyc_iwm, 1 )
 !!$      CALL iom_close(inum)
-      epyc_iwm(:,:) = 0.
+      epyc_iwm(:,:) = 1.e-6
       !
 !!$      CALL iom_open('mixing_power_cri',inum)       ! energy flux for critical slope wave breaking [W/m2]
 !!$      CALL iom_get  (inum, jpdom_data, 'field', ecri_iwm, 1 )
 !!$      CALL iom_close(inum)
-      ecri_iwm(:,:) = 0.
+      ecri_iwm(:,:) = 1.e-10
       !
 !!$      CALL iom_open('decay_scale_bot',inum)        ! spatially variable decay scale for high-mode wave breaking [m]
 !!$      CALL iom_get  (inum, jpdom_data, 'field', hbot_iwm, 1 )
 !!$      CALL iom_close(inum)
-      hbot_iwm(:,:) = 1.
+      hbot_iwm(:,:) = 100.
       !
 !!$      CALL iom_open('decay_scale_cri',inum)        ! spatially variable decay scale for critical slope wave breaking [m]
 !!$      CALL iom_get  (inum, jpdom_data, 'field', hcri_iwm, 1 )
 !!$      CALL iom_close(inum)
-      hcri_iwm(:,:) = 1.
+      hcri_iwm(:,:) = 100.
 
       ebot_iwm(:,:) = ebot_iwm(:,:) * ssmask(:,:)