Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/iophys.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 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/phylmd/iophys.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/iophys.F90

@@ -21 +21 @@
 !  La periode d'ecriture est donnee par 
 !  "ecritphy " regle dans le fichier de controle de run :  run.def
-!
+
 !    writediagfi peut etre appele de n'importe quelle subroutine
 !    de la physique, plusieurs fois. L'initialisation et la creation du
 !    fichier se fait au tout premier appel.
-!
+
 ! WARNING : les variables dynamique (u,v,t,q,ps)
 !  sauvees par writediagfi avec une
@@ -32 +32 @@
 ! IL est  RECOMMANDE d'ajouter les tendance physique a ces variables
 ! avant l'ecriture dans diagfi (cf. physiq.F)
-!  
+
 ! Modifs: Aug.2010 Ehouarn: enforce outputs to be real*4
-!
+
 !  parametres (input) :
 !  ----------
@@ -42 +42 @@
 !      unite : unite de la variable (chaine de caracteres)
 !      px : variable a sortir (real 0, 1, 2, ou 3d)
-!
+
 !=================================================================
 
@@ -82 +82 @@
 
 ! This subroutine returns the sea surface temperature already read from limit.nc
-!
 
 ! Arguments on input:
@@ -123 +122 @@
       include "YOMCST.h"
 !=======================================================================
-!
+
 !   Auteur:  L. Fairhead  ,  P. Le Van, Y. Wanherdrick, F. Forget
 !   -------
-!
+
 !   Objet:
 !   ------
-!
+
 !   'Initialize' the diagfi.nc file: write down dimensions as well
 !   as time-independent fields (e.g: geopotential, mesh area, ...)
-!
+
 !=======================================================================
 !-----------------------------------------------------------------------