Changeset 634 for LMDZ4/branches/LMDZ4_par_0/libf/phylmd/iniphysiq.F

Timestamp:

May 4, 2005, 5:11:29 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

File:

• LMDZ4/branches/LMDZ4_par_0/libf/phylmd/iniphysiq.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4_par_0/libf/phylmd/iniphysiq.F

@@ -9 +9 @@
      $           plat,plon,parea,pcu,pcv,
      $           prad,pg,pr,pcpp)
+      USE dimphy,klon2=>klon,klon=>klon2
+      USE comgeomphy
       IMPLICIT NONE
 c
@@ -43 +45 @@
 c   -------------
  
-#include "dimensions.h"
-#include "dimphy.h"
-#include "comgeomphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
+cym#include "comgeomphy.h"
 
       REAL prad,pg,pr,pcpp,punjours
@@ -71 +73 @@
       ENDIF
 
-      airephy=parea
-      cuphy=pcu
-      cvphy=pcv
-      rlond = plon
-      rlatd = plat
+      airephy(1:klon2)=parea(klon_begin:klon_end)
+      cuphy(1:klon2)=pcu(klon_begin:klon_end)
+      cvphy(1:klon2)=pcv(klon_begin:klon_end)
+      rlond(1:klon2) = plon(klon_begin:klon_end)
+      rlatd(1:klon2) = plat(klon_begin:klon_end)
 
       call suphec