Changeset 2399 for LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/limit_netcdf.F90

Timestamp:

Nov 20, 2015, 5:23:28 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Follow-up from commit 2395: get rid of rlon and rlat, longitude_deg and latitude_deg (from module geometry_mod) should be used instead. Longitudes and latitudes are no longer loaded from startphy.nc but inherited from dynamics (and compatibility with values in startphy.nc is checked). This will change bench results because of roundoffs differences between the two.
EM

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/limit_netcdf.F90 (modified) (3 diffs)

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

@@ -22 +22 @@
   USE conf_dat_m,         ONLY: conf_dat2d, conf_dat3d
   USE dimphy,             ONLY: klon, zmasq
-  USE phys_state_var_mod, ONLY: pctsrf, rlon, rlat
-  USE control_mod
+  USE geometry_mod, ONLY: longitude_deg, latitude_deg
+  USE phys_state_var_mod, ONLY: pctsrf
+  USE control_mod, ONLY: anneeref
   USE init_ssrf_m,        ONLY: start_init_subsurf
 
@@ -113 +114 @@
     CALL start_init_orog0(rlonv,rlatu,phis,masque)
     CALL gr_dyn_fi(1,iip1,jjp1,klon,masque,zmasq)          !--- To physical grid
-    ALLOCATE(rlon(klon),rlat(klon),pctsrf(klon,nbsrf))
+    ALLOCATE(pctsrf(klon,nbsrf))
     CALL start_init_subsurf(.FALSE.)
   END IF
@@ -267 +268 @@
   CALL ncerr(NF90_PUT_VAR(nid,id_ALB ,phy_alb(:,:),[1,1],[klon,ndays]),fnam)
   CALL ncerr(NF90_PUT_VAR(nid,id_RUG ,phy_rug(:,:),[1,1],[klon,ndays]),fnam)
-  call nf95_put_var(nid, varid_longitude, rlon)
-  call nf95_put_var(nid, varid_latitude, rlat)
+  call nf95_put_var(nid, varid_longitude, longitude_deg)
+  call nf95_put_var(nid, varid_latitude, latitude_deg)
 
   CALL ncerr(NF90_CLOSE(nid),fnam)