Changeset 121

Timestamp:

Jul 29, 2000, 1:09:57 PM (24 years ago)

Author:

lmdzadmin

Message:

Passage des dimensions de la grille a inicma
LF

Location:

LMDZ.3.3/branches/rel-LF/libf/phylmd

Files:

• interface_surf.F90 (modified) (4 diffs)
• oasis.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -259 +259 @@
        call interfsur_lim(itime, dtime, jour, &
      & klon, nisurf, knon, knindex, debut,  &
-     & lmt_alb, lmt_rug)
+     & alb_new, z0_new)
 !
 ! Pb compilo sun
@@ -268 +268 @@
        DO ii = 1, knon
          alb_neig(ii) = alb_neig_grid(knindex(ii))
-         alb_new(ii) = lmt_alb(knindex(ii))
        enddo
        zfra = MAX(0.0,MIN(1.0,snow/(snow+10.0)))
        alb_new = alb_neig*zfra + alb_new*(1.0-zfra)
-       DO ii = 1, knon
-         z0_new(ii) = lmt_rug(knindex(ii))
-       enddo   
     else
 !
@@ -806 +802 @@
 ! initialisation couplage
 !
-    call inicma(npas , nexca, dtime)
+    call inicma(npas , nexca, dtime,(jjm+1)*iim)
 !
 ! 1ere lecture champs ocean
@@ -1318 +1314 @@
   integer,save :: jour_lu_sur 
   integer      :: ierr
-  character (len = 20) :: modname = 'interfoce_lim'
+  character (len = 20) :: modname = 'interfsur_lim'
   character (len = 80) :: abort_message
   character (len = 20) :: fich ='limit.nc'

LMDZ.3.3/branches/rel-LF/libf/phylmd/oasis.F

@@ -13 +13 @@
 C     -----------------------------------------------------------
 C
-      SUBROUTINE inicma(kastp,kexch,kstep)
-c
-      INCLUDE 'param.h'
-c
-      INTEGER kastp, kexch, kstep
+      SUBROUTINE inicma(kastp,kexch,kstep,imjm)
+c
+c     INCLUDE 'param.h'
+c
+      INTEGER kastp, kexch, kstep,imjm
       INTEGER iparal(3)
       INTEGER ifcpl, idt, info, imxtag, istep, jf