Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phydev/gr_fi_ecrit.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phydev/gr_fi_ecrit.F90 (modified) (1 diff)

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

@@ -10 +10 @@
   INTEGER,INTENT(IN) :: nfield,nlon,iim,jjmp1
   REAL,INTENT(IN) :: fi(nlon,nfield)
-  REAL,INTENT(out) :: ecrit(iim*jjmp1,nfield)
+  REAL,INTENT(OUT) :: ecrit(iim*jjmp1,nfield)
 
   INTEGER :: i, n, ig, jjm