Ignore:
Timestamp:
Jul 7, 2017, 10:38:35 AM (7 years ago)
Author:
jghattas
Message:

Amelioration/correction pour retro-compatiblite avec different version de ORHCIDEE. Ajoute de test de coherence.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/surf_land_mod.F90

    r2924 r2934  
    11!
    22MODULE surf_land_mod
    3 #ifndef LMDZ_nofrein
    43
    54  IMPLICIT NONE
    … …  
    2221       flux_u1, flux_v1 , &
    2322       veget,lai,height)
    24 
    25 !FCveget,lai,height, &
    2623
    2724    USE dimphy
    … …  
    5249    INCLUDE "dimsoil.h"
    5350    INCLUDE "YOMCST.h"
    54 !albedo SB >>>
    5551    INCLUDE "clesphys.h"
    56 !albedo SB <<<
    57 !FC
    58    INCLUDE "dimpft.h"
     52    INCLUDE "dimpft.h"
    5953
    6054
    … …  
    107101    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l     
    108102    REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1  ! flux for U and V at first model level
    109 !FC
    110     REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT)       :: veget,lai
    111     REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT)            :: height
     103    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: veget,lai
     104    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: height
    112105
    113106! Local variables
    … …  
    166159            emis_new, z0m, z0h, qsurf, &
    167160            veget, lai, height)       
    168 
    169 !    print*, " FC SORTIE surf_land_orchidee" ,height(1:100,2)
    170 !FC
    171161
    172162
    … …  
    236226!****************************************************************************************
    237227! 
    238 #endif
    239228END MODULE surf_land_mod
    240229!
Note: See TracChangeset for help on using the changeset viewer.