Changeset 2347 for LMDZ5/trunk/libf/dynlonlat_phylonlat

Timestamp:

Aug 24, 2015, 9:26:48 AM (10 years ago)

Author:

Ehouarn Millour

Message:

Make iniphysiq a module.
Fix call to iniphysiq in lmdz1d (missing arguments and arrays of wrong sizes).
EM

Location:

LMDZ5/trunk/libf/dynlonlat_phylonlat

Files:

• phydev/iniphysiq_mod.F90 (moved) (moved from LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev/iniphysiq.F90) (2 diffs)
• phylmd/iniphysiq_mod.F90 (moved) (moved from LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90) (2 diffs)
• phymar/iniphysiq_mod.F90 (moved) (moved from LMDZ5/trunk/libf/dynlonlat_phylonlat/phymar/iniphysiq.F90) (2 diffs)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev/iniphysiq_mod.F90

@@ -2 +2 @@
 ! $Id: iniphysiq.F 1403 2010-07-01 09:02:53Z fairhead $
 !
+MODULE iniphysiq_mod
+
+CONTAINS
+
 SUBROUTINE iniphysiq(iim,jjm,nlayer,punjours, pdayref,ptimestep, &
                      rlatu,rlatv,rlonu,rlonv,aire,cu,cv, &
@@ -177 +181 @@
 
 END SUBROUTINE iniphysiq
+
+END MODULE iniphysiq_mod

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq_mod.F90

@@ -1 @@
-
+!
 ! $Id$
-
+!
+MODULE iniphysiq_mod
+
+CONTAINS
 
 SUBROUTINE iniphysiq(ii,jj,nlayer,punjours, pdayref,ptimestep, &
@@ -211 +214 @@
 
 END SUBROUTINE iniphysiq
+
+END MODULE iniphysiq_mod

LMDZ5/trunk/libf/dynlonlat_phylonlat/phymar/iniphysiq_mod.F90

@@ -2 +2 @@
 ! $Id: iniphysiq.F 1403 2010-07-01 09:02:53Z fairhead $
 !
+MODULE iniphysiq_mod
+
+CONTAINS
+
 SUBROUTINE iniphysiq(iim,jjm,nlayer,punjours, pdayref,ptimestep, &
                      rlatu,rlatv,rlonu,rlonv,aire,cu,cv,         &
@@ -186 +190 @@
 !!$OMP END PARALLEL
 
-      END
+END SUBROUTINE iniphysiq
+
+END MODULE iniphysiq_mod