Changeset 13198

Timestamp:

2020-07-01T16:27:52+02:00 (4 years ago)

Author:

smasson

Message:

better e3: minor cleaning see #2385

Location:

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3

Files:

• cfgs/GYRE_PISCES/cpp_GYRE_PISCES.fcm (modified) (1 diff)
• src/OCE/DIA/diawri.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/cfgs/GYRE_PISCES/cpp_GYRE_PISCES.fcm

@@ -1 @@
-bld::tool::fppkeys   key_mpp_mpi key_iomput key_top key_qco
+bld::tool::fppkeys   key_top key_mpp_mpi key_iomput

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diawri.F90

@@ -192 +192 @@
       ENDIF
 
+#if ! defined key_qco
       CALL iom_put( "rhop", rhop(:,:,:) )          ! 3D potential density (sigma0)
+#endif
 
       IF ( iom_use("taubot") ) THEN                ! bottom stress