Changeset 5824 for LMDZ6


Ignore:
Timestamp:
Sep 22, 2025, 2:41:20 PM (3 months ago)
Author:
fcheruy
Message:

nettoyage print par rapport commit precedent

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

    r5823 r5824  
    272272          ig(igrid) = indi
    273273          jg(igrid) = indj
    274        print *,' FCCCC je passe', igrid
    275274       ENDDO
    276275       ig(klon) = 1
    … …  
    287286       DO igrid = 1, knon
    288287          area(igrid) = cell_area(knindex(igrid))
    289           print*, ' FCCCC je passe' ,area(igrid)
    290288       ENDDO
    291289       
    … …  
    313311         IF (is_mpi_root) THEN
    314312            index = 1
    315                              IF (klon_glo == 1) THEN
    316             lon_scat(:,1) = rlon_g(1)
    317             lat_scat(:,1) = rlat_g(1)
    318             lon_scat(:,nbp_lat) = rlon_g(1)
    319             lat_scat(:,nbp_lat) = rlat_g(klon_glo)
    320                              ELSE!FC
    321313            DO jj = 2, nbp_lat-1
    322314               DO ij = 1, nbp_lon
    … …  
    330322            lon_scat(:,nbp_lat) = lon_scat(:,2)
    331323            lat_scat(:,nbp_lat) = rlat_g(klon_glo)
    332                              ENDIF !FC
    333324
    334325         ENDIF
Note: See TracChangeset for help on using the changeset viewer.