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/hbtm.F

    r644 r674  
    168168#include "YOETHF.h"
    169169#include "FCTTRE.h"
    170        b212=sqrt(b1*b2)
    171        b2sr=sqrt(b2)
     170
     171
     172
     173! initialisations (Anne)
     174      th_th(:) = 0.
     175      q_star = 0
     176      t_star = 0
     177
     178
     179      b212=sqrt(b1*b2)
     180      b2sr=sqrt(b2)
    172181c
    173182C ============================================================
Note: See TracChangeset for help on using the changeset viewer.