Changeset 3940 for LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90

Timestamp:

Jun 15, 2021, 1:18:14 PM (3 years ago)

Author:

crisi

Message:

replace files by symbloic liks from phylmdiso towards phylmd.
Many files at once

File:

• LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90

@@ -1 @@
-! $Id: phys_output_mod.F90 3666 2020-04-20 10:13:34Z lfalletti $
+! $Id: phys_output_mod.F90 3792 2021-01-04 17:01:25Z evignon $
 !
 
@@ -41 +41 @@
     USE mod_phys_lmdz_para
     !Martin
-    USE surface_data, ONLY : ok_snow
+    USE surface_data, ONLY : landice_opt
     USE phys_output_ctrlout_mod
     USE mod_grid_phy_lmdz, only: klon_glo,nbp_lon,nbp_lat
@@ -379 +379 @@
     ENDIF
 
-        write(*,*) 'phys_output_mid 344'
 !!! Declaration des axes verticaux de chaque fichier:
     IF (prt_level >= 10) THEN
@@ -452 +451 @@
    ENDIF
 #endif 
-        write(*,*) 'phys_output_mid 416'
 
         IF (clef_files(iff)) THEN