Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/gr_fi_ecrit.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/gr_fi_ecrit.F90 (modified) (1 diff)

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

@@ -1 +1 @@
 SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
   IMPLICIT none
-  !
+
   ! Tranformer une variable de la grille physique a
   ! la grille d'ecriture
-  !
+
   ! WARNING: This only works on the full global grid
   !          (ie for GCM in serial mode)
   INTEGER nfield,nlon,iim,jjmp1, jjm
   REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield)
-  !
+
   INTEGER i, n, ig
-  !
+
   jjm = jjmp1 - 1
   DO n = 1, nfield