Ignore:
Timestamp:
Aug 17, 2006, 5:41:51 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/phylmd/albedo.F

    r584 r704  
    55c
    66      SUBROUTINE alboc(rjour,rlat,albedo)
     7      USE dimphy
    78      IMPLICIT none
    89c======================================================================
    … …  
    1718c albedo (out,R): albedo obtenu (de 0 a 1)
    1819c======================================================================
    19 #include "dimensions.h"
    20 #include "dimphy.h"
     20cym#include "dimensions.h"
     21cym#include "dimphy.h"
    2122#include "YOMCST.h"
    2223c
    … …  
    127128c=====================================================================
    128129      SUBROUTINE alboc_cd(rmu0,albedo)
     130      USE dimphy
    129131      IMPLICIT none
    130132c======================================================================
    … …  
    140142c albedo (out): albedo de surface de l'ocean
    141143c======================================================================
    142 #include "dimensions.h"
    143 #include "dimphy.h"
     144cym#include "dimensions.h"
     145cym#include "dimphy.h"
    144146      REAL rmu0(klon), albedo(klon)
    145147c
Note: See TracChangeset for help on using the changeset viewer.