Changeset 733 for LMDZ4

Timestamp:

Nov 10, 2006, 3:39:12 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Petit nettoyage
YM/LF

Location:

LMDZ4/branches/V3_test/libf/dyn3d

Files:

• create_etat0_limit.F (modified) (4 diffs)
• etat0_netcdf.F (modified) (4 diffs)
• limit_netcdf.F (modified) (2 diffs)

LMDZ4/branches/V3_test/libf/dyn3d/create_etat0_limit.F

@@ -3 +3 @@
 !
        PROGRAM create_etat0_limit
+       USE dimphy
+       USE comgeomphy
+
 c
 c
@@ -18 +21 @@
 c
 c     on cree le masque dans etat0 que l'on passe ensuite dans limit pour 
-c     garder les cohérences
+c     garder les coherences
 
       LOGICAL interbar, extrap , oldice
@@ -25 +28 @@
 #include "paramet.h"
 #include "indicesol.h"
-#include "dimphy.h"
+cym#include "dimphy.h" 
       REAL :: masque(iip1,jjp1)
-      REAL :: pctsrf(klon, nbsrf)
+      REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
 
+      
+      call InitDimphy
+      call init_phys_openmp
+      call InitComgeomphy
+      
       WRITE(6,*) '  *********************  '
       WRITE(6,*) ' interbar = ',interbar
@@ -38 +46 @@
       WRITE(6,*) '  *********************  '
       WRITE(6,1)
-c
+      
+c     
       CALL  limit_netcdf ( interbar, extrap , oldice, masque, pctsrf )
 

LMDZ4/branches/V3_test/libf/dyn3d/etat0_netcdf.F

@@ -8 +8 @@
       USE startvar
       USE ioipsl
+      USE dimphy
       !
       IMPLICIT NONE
@@ -23 +24 @@
 #include "comconst.h"
 #include "indicesol.h"
-#include "dimphy.h"
+c#include "dimphy.h"
 #include "dimsoil.h"
 #include "temps.h"
@@ -671 +672 @@
       rnebcon = 0.0
       ratqs = 0.0
-      run_off_lic_0 = 0.0
+      run_off_lic_0 = 0.0 
 
 cIM   call phyredem("startphy.nc",phystep,radpas, co2_ppm, solaire,
+    
       call phyredem("startphy.nc",phystep,radpas,
      $    latfi, lonfi, pctsrf, tsolsrf, tsoil, tslab, seaice, 
@@ -683 +685 @@
      $    t_ancien, q_ancien, rnebcon, ratqs, clwcon,
      $    run_off_lic_0)
-      print*,'sortie phyredem'
 
 C     Sortie Visu pour les champs dynamiques

LMDZ4/branches/V3_test/libf/dyn3d/limit_netcdf.F

@@ -5 +5 @@
 C
       SUBROUTINE limit_netcdf(interbar, extrap, oldice, masque, pctsrf)
-c
+      USE dimphy
       IMPLICIT none
 c
@@ -30 +30 @@
 #include "comgeom2.h"
 #include "comconst.h"
-#include "dimphy.h"
+cy#include "dimphy.h"
 #include "indicesol.h"
 c