Changeset 1545 for trunk/LMDZ.TITAN/libf/phytitan/pg2.old

Timestamp:

May 2, 2016, 8:31:27 AM (9 years ago)

Author:

emillour

Message:

Venus and Titan GCMs:

Adaptation wrt previous changes for Titan and Venus where
longitude and latitude arrays (in phycommon/geometry_mod) were overwritten
with values from startphy.nc files, where values are given in degrees.
For the sake of homegeneity with other physics package, revert to "default"
behaviour: longitude/latitude are in radians and longitude_deg/latitude_deg
are in degrees.
Also added checking in phyetat0 that the longitude/latitude read in the
restartphy.nc files match the ones provided by the dynamics.

EM

File:

• trunk/LMDZ.TITAN/libf/phytitan/pg2.old (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/pg2.old

@@ -42 +42 @@
 
       use dimphy
-      USE geometry_mod, ONLY: latitude
+      USE geometry_mod, ONLY: latitude_deg
 #include "dimensions.h"
 #include "microtab.h"
@@ -180 +180 @@
       lati(1)     = 0.5*RPI
       DO ig=2,ngrid-1
-        lati(ig)  = latitude(2+(ig-2)*iim)*RPI/180.
+        lati(ig)  = latitude_deg(2+(ig-2)*iim)*RPI/180.
       ENDDO
       lati(ngrid) = -0.5*RPI
@@ -197 +197 @@
 c     print*,"ENTREE PG2 PREMIER APPEL"
 c     print*,airetot,' airetot?= ',4.*RPI*RA*RA
-c     print*,1,latitude(1),aire(1),aire(1)/airetot,' aires'
+c     print*,1,latitude_deg(1),aire(1),aire(1)/airetot,' aires'
 c     DO ig=2,ngrid-1
-c     print*,ig,latitude(2+(ig-2)*iim),aire(ig),aire(ig)/airetot,' aires'
+c     print*,ig,latitude_deg(2+(ig-2)*iim),aire(ig),aire(ig)/airetot,' aires'
 c     ENDDO
-c     print*,ngrid,latitude(klon),aire(ngrid),aire(ngrid)/airetot,' aires'
+c     print*,ngrid,latitude_deg(klon),aire(ngrid),aire(ngrid)/airetot,' aires'
 c     stop