Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_output_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

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

LMDZ6/branches/Amaury_dev/libf/phylmdiso/phys_output_mod.F90

@@ -1 +1 @@
 ! $Id: phys_output_mod.F90 3792 2021-01-04 17:01:25Z evignon $
-!
 
 MODULE phys_output_mod 
@@ -307 +306 @@
 ! afin d avoir une seule sortie mensuelle par mois lorsque l on tourne 
 ! par annee (IM).
-!
+
      idayref = day_ref
      IF (klon_glo==1) THEN
@@ -411 +410 @@
           spectband(ISW)=(wn1_sun(ISW)+wn2_sun(ISW))/2
         ENDDO
-!
+
 !!! ajout axe vertical spectband : solar band number
         CALL wxios_add_vaxis("spectband", NSW, spectband, positif='down')
@@ -630 +629 @@
 
     ipos=scan(str,'0123456789.',.TRUE.)
-    !  
+
     il=len_trim(str)
     WRITE(lunout,*) "ipos = ", ipos