Changeset 13955

Timestamp:

2020-12-01T22:02:15+01:00 (4 years ago)

Author:

rbb

Message:

boundary condition modif

Location:

NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE

Files:

• TRA/eosbn2.F90 (modified) (1 diff)
• ZDF/zdfmfc.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE/TRA/eosbn2.F90

@@ -602 +602 @@
          !
       END SELECT
+      IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=prhop, clinfo1=' pot: ', kdim=1 )
       !
       IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=prhop, clinfo1=' eos-pot: ' )

NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE/ZDF/zdfmfc.F90

@@ -189 +189 @@
       WHERE(zwpsurf .NE. 0.) zapp(:,:,1)   = MIN(MAX(0.,zedmf(:,:,1)/zwpsurf(:,:)), App_max)
 
-      zedmf(:,:,1) = -zedmf(:,:,1)
-      zrwp(:,:,1)  = zwpsurf(:,:)
-      zrwp2(:,:,1) = zwpsurf(:,:)**2
+      zedmf(:,:,1) = 0._wp 
+      zrwp (:,:,1) = 0._wp 
+      zrwp2(:,:,1) = 0._wp
       zepsT(:,:,:) = 0.001_wp
       zepsW(:,:,:) = 0.001_wp