Ignore:
Timestamp:
Nov 16, 2005, 3:47:19 PM (19 years ago)
Author:
lmdzadmin
Message:

Initialisations - AC
MAF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r661 r674  
    316316      LOGICAL check
    317317      PARAMETER (check=.false.)
     318
     319
     320c initialisation Anne
     321      ytherm(:) = 0.
    318322C
    319323      if (check) THEN
    … …  
    500504        yts(j) = ts(i,nsrf)
    501505cIM "slab" ocean
     506c        PRINT *, 'tslab = ', i, tslab(i)
    502507        ytslab(i) = tslab(i)
    503508c
Note: See TracChangeset for help on using the changeset viewer.