source: LMDZ6/trunk/libf/phylmd/fcg_gcssold_mod_h.f90 @ 5408

Last change on this file since 5408 was 5301, checked in by abarral, 7 weeks ago

Turn tsoilnudge.h fcg_gcssold.h flux_arp.h into module

File size: 425 bytes
Line 
1! Replaces fcg_gcssold.h
2
3MODULE fcg_gcssold_mod_h
4  IMPLICIT NONE; PRIVATE
5  PUBLIC imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold
6
7  LOGICAL :: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold
8  LOGICAL :: Tp_ini_gcssold
9  LOGICAL :: xTurb_fcg_gcssold
10
11  !$OMP THREADPRIVATE(imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold)
12END MODULE fcg_gcssold_mod_h
Note: See TracBrowser for help on using the repository browser.