Changeset 688 for LMDZ4


Ignore:
Timestamp:
Apr 4, 2006, 5:03:23 PM (19 years ago)
Author:
lmdzadmin
Message:

Modif. jour -> jourvrai si slab ocean
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/condsurf.F

    r675 r688  
    2929      PARAMETER ( nannemax = 60 )
    3030c
    31       INTEGER jour
    32       INTEGER jourvrai
     31      INTEGER jour, jourvrai
    3332      REAL lmt_bils(klon) !bilan chaleur au sol
    3433c
    … …  
    9392c
    9493      debut(1) = 1
    95       debut(2) = jour
     94      debut(2) = jourvrai
    9695      epais(1) = klon
    9796      epais(2) = 1
    … …  
    104103         CALL abort
    105104      ENDIF
    106 c     PRINT*,'debut,epais',debut,epais
     105      PRINT*,'debut,epais',debut,epais,'jour,jourvrai',jour,jourvrai
    107106#ifdef NC_DOUBLE
    108107      ierr = NF_GET_VARA_DOUBLE(nid, nvarid,debut,epais,lmt_bils)
Note: See TracChangeset for help on using the changeset viewer.