Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phy_common/mod_phys_lmdz_para.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phy_common/mod_phys_lmdz_para.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phy_common/mod_phys_lmdz_para.F90

@@ -33 +33 @@
        is_master=.FALSE.
      ENDIF
-     CALL Test_transfert
+!ym     CALL Test_transfert
 !$OMP END PARALLEL    
      IF (is_using_mpi .OR. is_using_omp) THEN
@@ -49 +49 @@
   SUBROUTINE Test_transfert
   USE mod_grid_phy_lmdz
+  USE print_control_mod, ONLY: lunout
   IMPLICIT NONE
-    INCLUDE "iniprint.h"
+!    INCLUDE "iniprint.h"
  
     REAL :: Test_Field1d_glo(klon_glo,nbp_lev)