Ignore:
Timestamp:
Nov 8, 2024, 10:57:04 AM (2 weeks ago)
Author:
afalco
Message:

Pluto: surfini.F and soil_settings.F to .F90.
AF

File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/surfini.F90

    r3502 r3503  
    1       SUBROUTINE surfini(ngrid,nq,qsurf,albedo,albedo_bareground,
    2      &                   albedo_snow_SPECTV,albedo_n2_ice_SPECTV)
     1      SUBROUTINE surfini(ngrid,nq,qsurf,albedo,albedo_bareground,&
     2                        albedo_snow_SPECTV,albedo_n2_ice_SPECTV)
    33
    44      USE surfdat_h, only: albedodat
    … …  
    1111
    1212
    13 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    14 cccccccccccccc                                                                 cccccccccccccc
    15 cccccccccccccc   Spectral Albedo Initialisation - Routine modified by MT2015.  cccccccccccccc
    16 cccccccccccccc                                                                 cccccccccccccc
    17 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
     13!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     14!!!!!!!                                                                 !!!!!!!
     15!!!!!!!   Spectral Albedo Initialisation - Routine modified by MT2015.  !!!!!!!
     16!!!!!!!                                                                 !!!!!!!
     17!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1818
    1919
    20 c--------------------
    21 c   Declarations:
    22 c--------------------
     20!--------------------
     21!   Declarations:
     22!--------------------
    2323
    2424      INTEGER,INTENT(IN) :: ngrid
    … …  
    3333      REAL :: min_albedo,max_albedo
    3434
    35 c=======================================================================
     35!=======================================================================
    3636
    3737      ! Step 1 : Initialisation of the Spectral Albedos.
Note: See TracChangeset for help on using the changeset viewer.