Changeset 1687 for trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/readstartphy.F

Timestamp:

Apr 6, 2017, 4:15:56 PM (8 years ago)

Author:

slebonnois

Message:

SL: bugs corrections outputs/clouds_AStol/upper_atmosphere/start2archive

File:

• trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/readstartphy.F (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/readstartphy.F

@@ -4 +4 @@
 c
 c
-      SUBROUTINE readstartphy(fichnom,
+      SUBROUTINE readstartphy(fichnom,klon_glo,
      .            rlat,rlon, tsol,tsoil,
      .           albe, solsw, sollw,
@@ -15 +15 @@
 c======================================================================
       use dimphy
-      USE mod_grid_phy_lmdz, only: klon_glo
       IMPLICIT none
 #include "netcdf.inc"
@@ -22 +21 @@
 
       CHARACTER*(*) fichnom
+      integer klon_glo
       REAL rlat(klon_glo), rlon(klon_glo)
       REAL tsol(klon_glo)