Changeset 3389 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 12, 2018, 12:53:39 PM (6 years ago)
Author:
lguez
Message:

Bug fix.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3317 r3389  
    7171    REAL, DIMENSION(klon), INTENT(INOUT)     :: qsurf
    7272    REAL, DIMENSION(klon), INTENT(INOUT)     :: agesno
     73    REAL, DIMENSION(klon), INTENT(inOUT):: z0h
    7374
    7475! Output variables
    7576!******************************************************************************
    76     REAL, DIMENSION(klon), INTENT(OUT)       :: z0m, z0h
     77    REAL, DIMENSION(klon), INTENT(OUT)       :: z0m
    7778!albedo SB >>>
    7879!    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new  ! new albedo in visible SW interval
Note: See TracChangeset for help on using the changeset viewer.