Ignore:
Timestamp:
Apr 16, 2014, 7:16:58 AM (10 years ago)
Author:
fhourdin
Message:

Passage au format libre pour inclure les ficheirs du 1D dans lmdz1d.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/fcg_gcssold.h

    r2017 r2019  
    22! $Id: fcg_gcssold.h 2010-08-10 17:02:56Z lahellec $
    33!
    4       logical :: imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold,
    5      $ Tp_ini_gcssold,
    6      $ xTurb_fcg_gcssold
     4      logical :: imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold
     5      logical :: Tp_ini_gcssold
     6      logical :: xTurb_fcg_gcssold
    77
    8       common /fcg_gcssold/imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold,
    9      $ Tp_ini_gcssold,
    10      $ xTurb_fcg_gcssold
     8      common /fcg_gcssold/imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold,        &
     9     & Tp_ini_gcssold,                                                          &
     10     & xTurb_fcg_gcssold
    1111
    1212!$OMP THREADPRIVATE(/fcg_gcssold/)
Note: See TracChangeset for help on using the changeset viewer.