Changeset 27 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz

Timestamp:

Jul 22, 2014, 12:52:58 PM (10 years ago)

Author:

lfita

Message:

Adding checking prints on the WRFsoil conversion subroutine

Location:

branches/LMDZ_WRFmeas/WRFV3/lmdz

Files:

• dimensions.h (modified) (1 diff)
• wrf_lmdz_mod.F90 (modified) (3 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/dimensions.h

@@ -2 +2 @@
        INTEGER iim,jjm,llm,ndm,wiim,wjjm,wbdym
 
-       PARAMETER (iim= 1, jjm=7031, llm=38,ndm=1,wiim=79,wjjm=89,wbdym=5)
+       PARAMETER (iim= 1, jjm=14061, llm=38,ndm=1,wiim=129,wjjm=109,wbdym=5)
 

branches/LMDZ_WRFmeas/WRFV3/lmdz/wrf_lmdz_mod.F90

@@ -1426 +1426 @@
         Noce_wk, Nsic_wk, klks_equal
     REAL*8, DIMENSION(is:ie,js:je)                       :: Ksoilval
-
+    INTEGER                                              :: il, jl
 
 !!!!!!!! Variables
@@ -1443 +1443 @@
     errmsg='ERROR -- error -- ERROR -- error'
     wrnmsg='WARNING -- warning -- WARNING -- warning'
+
+! Test points
+    il = 70
+    jl = 85
     
 ! Checking if at all the grid points SUM(landuse) == 1.
@@ -1696 +1700 @@
 
         IF (kl(i,j) == ks(i,j)) klks_equal = klks_equal+1
+! L. Fita, LMD July 2014. Printing checks
+!        IF (i == il .AND. j == jl) THEN
+!          PRINT *,' Lluis test ________________'
+!          PRINT *,'    wk 1: ',wk(1,:)
+!          PRINT *,'    wk 2: ',wk(2,:)
+!          PRINT *,'    wk 3: ',wk(3,:)
+!          PRINT *,'    wk 4: ',wk(4,:)
+!          PRINT *,'    lndu (',il,',',jl,') wk________'
+!          DO ij=1,ncat
+!            PRINT *,ij,':',lndu(il,ij,jl),wk(:,ij)
+!          END DO
+!          PRINT *,'     kt: ',kt(il,j),' kl: ',kl(il,jl),' ko: ',ko(il,jl),  &
+!            ' ks: ',ks(il,jl)
+!          STOP
+        END IF
       END DO
     END DO