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

Timestamp:

2020-11-26T16:27:57+01:00 (4 years ago)

Author:

gsamson

Message:

add _wp to constants in zdfmfc.F90 and add missing eos_insitu_pot_2d routine in ISOMIP+ MY_SRC eosbn2.F90 to passe SETTE tests; #2052

File:

• NEMO/branches/2020/dev_r2052_ENHANCE-09_rbourdal_massfluxconvection/src/OCE/TRA/eosbn2.F90 (modified) (1 diff)

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

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