Ignore:
Timestamp:
Jan 18, 2020, 5:59:32 PM (5 years ago)
Author:
dubos
Message:

simple_physics : enforce F2003 strictly

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/physics/surface.F90

    r4229 r4233  
    2828  SUBROUTINE init_soil(ngrid,nsoil)
    2929    INTEGER, INTENT(IN) :: ngrid, nsoil
    30     REAL min_period,dalph_soil
    31     REAL fz,rk,fz1,rk1,rk2
     30    REAL :: min_period,dalph_soil, rk,fz1,rk1,rk2
    3231    INTEGER :: jk
    33 
    34     ! this is a function definition
    35     fz(rk)=fz1*(dalph_soil**rk-1.)/(dalph_soil-1.)
    3632
    3733    !-----------------------------------------------------------------------
    … …  
    7167    ENDDO
    7268    LOG_INFO('init_soil')
     69
     70  CONTAINS
     71
     72    FUNCTION fz(rk) RESULT(val)
     73      REAL :: val, rk
     74      val = fz1*(dalph_soil**rk-1.)/(dalph_soil-1.)
     75    END FUNCTION fz
    7376
    7477  END SUBROUTINE init_soil
Note: See TracChangeset for help on using the changeset viewer.