Changeset 197 for LMDZ.3.3/trunk

Timestamp:

Mar 29, 2001, 4:59:31 PM (23 years ago)

Author:

lmdz

Message:

Chgts divers pour le offline/nudge FH
LF

Location:

LMDZ.3.3/trunk/libf/phylmd

Files:

• indicesol.inc (modified) (1 diff)
• initphysto.F (modified) (1 diff)
• interface_surf.F90 (modified) (1 diff)
• physiq.F (modified) (1 diff)
• raddim.h (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/indicesol.inc

@@ -1 @@
-      INTEGER,parameter :: nbsrf=4
+      INTEGER, parameter :: nbsrf=4
       INTEGER, parameter :: is_oce=3 !ocean
       INTEGER, parameter :: is_sic = 4 ! glace de mer

LMDZ.3.3/trunk/libf/phylmd/initphysto.F

@@ -133 +133 @@
      .                "once", t_ops, t_wrt)
 
+C T 
+C
+      call histdef(fileid, 't', 'Temperature', 'K',
+     .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+        write(*,*) 'apres t ds initphysto'
 C mfu 
 C

LMDZ.3.3/trunk/libf/phylmd/interface_surf.F90

@@ -20 +20 @@
 
   USE ioipsl
-!  USE constantes
 
   IMPLICIT none

LMDZ.3.3/trunk/libf/phylmd/physiq.F

@@ -1934 +1934 @@
          call phystokenc (
      I                   nlon,nlev,pdtphys,rlon,rlat,
-     I                   pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
+     I                   t,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
      I                   ycoefh,yu1,yv1,ftsol,pctsrf,
      I                   frac_impa, frac_nucl,
-     I                   pphis,paire,dtime,itap,
-     O                   physid)
+     I                   pphis,paire,dtime,itap)
+
 
       ENDIF

LMDZ.3.3/trunk/libf/phylmd/raddim.h

@@ -1 +1 @@
       INTEGER kdlon, kflev
-      PARAMETER (kdlon=149,kflev=klev)
+c
+ccc      PARAMETER (kdlon=klon,kflev=klev)
+c
+c resolution 72 45:
+      PARAMETER (kdlon=317,kflev=klev)
+c resolution 64 32:
+ccc      PARAMETER (kdlon=331,kflev=klev)
+c resolution 96 49:
+ccc      PARAMETER (kdlon=461,kflev=klev)
+c resolution 144 73:
+ccc      PARAMETER (kdlon=610,kflev=klev)
+c resolution 96 72:
+c      PARAMETER (kdlon=487,kflev=klev)
+c resolution 128 64:
+ccc       PARAMETER (kdlon=4033,kflev=klev)