Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_ecrit_fi.f90

Timestamp:

Aug 2, 2024, 9:58:25 PM (7 weeks ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_ecrit_fi.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_ecrit_fi.f90

@@ -10 +10 @@
     INTEGER :: nfield,nlon,iim,jjmp1, jjm
   REAL :: fi(nlon,nfield), ecrit(iim,jjmp1,nfield)
-  !
+
   INTEGER :: i, j, n, ig
-  !
+
   ! PRINT*,'iim jjm ',iim,jjm