Changeset 892 for trunk/LMDZ.VENUS/libf/phyvenus/load_psi.F

Timestamp:

Mar 5, 2013, 4:01:03 PM (12 years ago)

Author:

slebonnois

Message:

SL: Important commit ! Adaptation of Venus physics to parallel computation / template for arch on the LMD servers using ifort / documentation for 1D column physics and for parallel computations

File:

• trunk/LMDZ.VENUS/libf/phyvenus/load_psi.F (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/load_psi.F

@@ -38 +38 @@
       real   psurf(klon)           ! Surface pressure
       real   ztop(klon)            ! Altitude of the top of cloud deck (km)
-      real   ksive(0:kflev+1,0:kflev+1,nnuve,nbmat)  ! ksi matrixes in Vincent's file
-      real   temp(klon,0:kflev+1)  ! Temperature in layer (K)
+      real   ksive(0:klev+1,0:klev+1,nnuve,nbmat)  ! ksi matrixes in Vincent's file
+      real   temp(klon,0:klev+1)  ! Temperature in layer (K)
 c outputs
-      real   psimap(0:kflev+1,0:kflev+1,klon)
-      real   deltapsimap(0:kflev+1,0:kflev+1,klon)
+      real   psimap(0:klev+1,0:klev+1,klon)
+      real   deltapsimap(0:klev+1,0:klev+1,klon)
 
 c local variables
@@ -48 +48 @@
       integer mat,m,mat0
       character*100 file
-      real   bplck(0:kflev+1,nnuve)    ! Planck luminances in table layers
-      real   y(0:kflev,nnuve)          ! intermediaire Planck
-      real   zdblay(0:kflev+1,nnuve)   ! gradient en temperature de planck
+      real   bplck(0:klev+1,nnuve)    ! Planck luminances in table layers
+      real   y(0:klev,nnuve)          ! intermediaire Planck
+      real   zdblay(0:klev+1,nnuve)   ! gradient en temperature de planck
       real   ksi
       real   factp,factz
 
-      nlve = kflev  ! (doit correspondre, pour bplck, y et zdblay)
+      nlve = klev  ! (doit correspondre, pour bplck, y et zdblay)
 
 c -----------------------