Changeset 5823 for LMDZ6

Timestamp:

Sep 22, 2025, 2:35:19 PM (2 months ago)

Author:

fcheruy

Message:

pour tourner en 1D avec Orchidee apres modif LMDZ pour separer dynamique et physique (rev. 2344)

Location:

LMDZ6/trunk/libf/phylmd

Files:

• surf_land_orchidee_mod.F90 (modified) (7 diffs)
• surf_land_orchidee_nolic_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

@@ -272 +272 @@
           ig(igrid) = indi
           jg(igrid) = indj
+       print *,' FCCCC je passe', igrid
        ENDDO
        ig(klon) = 1
        jg(klon) = nbp_lat
+
 
        IF ((.NOT. ALLOCATED(area))) THEN
@@ -285 +287 @@
        DO igrid = 1, knon
           area(igrid) = cell_area(knindex(igrid))
+          print*, ' FCCCC je passe' ,area(igrid) 
        ENDDO
        
@@ -310 +313 @@
          IF (is_mpi_root) THEN
             index = 1
+                             IF (klon_glo == 1) THEN
+            lon_scat(:,1) = rlon_g(1)
+            lat_scat(:,1) = rlat_g(1)
+            lon_scat(:,nbp_lat) = rlon_g(1)
+            lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+                             ELSE!FC
             DO jj = 2, nbp_lat-1
                DO ij = 1, nbp_lon
@@ -321 +330 @@
             lon_scat(:,nbp_lat) = lon_scat(:,2)
             lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+                             ENDIF !FC
+
          ENDIF
      
@@ -375 +386 @@
          IF (is_mpi_root) THEN
             index = 1
+            IF (klon_glo == 1) THEN
+            lon_scat(:,1) = rlon_g(1)
+            lat_scat(:,1) = rlat_g(1)
+            lon_scat(:,nbp_lat) = rlon_g(1)
+            lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+                             ELSE!FC
             DO jj = 2, nbp_lat-1
                DO ij = 1, nbp_lon
@@ -386 +403 @@
             lon_scat(:,nbp_lat) = lon_scat(:,2)
             lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+                             ENDIF !FC
+
          ENDIF
    
@@ -450 +469 @@
             resolution(igrid,1) = dx(ij)
            resolution(igrid,2) = dy(ij)
+           print*, 'resolution FCCC',resolution(igrid,1),resolution(igrid,2)
          ENDDO
        ENDIF

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90

@@ -303 +303 @@
 
          IF (is_mpi_root) THEN
+
             index = 1
             DO jj = 2, nbp_lat-1
@@ -315 +316 @@
             lon_scat(:,nbp_lat) = lon_scat(:,2)
             lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+
          ENDIF
      
@@ -368 +370 @@
 
          IF (is_mpi_root) THEN
+!FC
+                 IF (klon_glo == 1) THEN
+            lon_scat(:,1) = rlon_g(1)
+            lat_scat(:,1) = rlat_g(1)
+            lon_scat(:,nbp_lat) = rlon_g(1)
+            lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+         ELSE!FC
             index = 1
             DO jj = 2, nbp_lat-1
@@ -380 +389 @@
             lon_scat(:,nbp_lat) = lon_scat(:,2)
             lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+    ENDIF !FC
          ENDIF