Changeset 1545 for trunk/LMDZ.TITAN/libf/phytitan/phyredem.F90

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/phyredem.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/phyredem.F90

@@ -12 +12 @@
                           put_var,put_field
       USE infotrac
-      USE geometry_mod,  only: longitude, latitude
+      USE geometry_mod,  only: longitude_deg, latitude_deg
       USE time_phylmdz_mod, only: day_end, annee_ref, itau_phy, raz_date
 
@@ -64 +64 @@
 
       CALL put_field("longitude", &
-                     "Longitudes de la grille physique",longitude)
+                     "Longitudes de la grille physique",longitude_deg)
      
       CALL put_field("latitude", &
-                     "Latitudes de la grille physique",latitude)
+                     "Latitudes de la grille physique",latitude_deg)
 
 ! variables