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

Last change on this file since 5435 was 5301, checked in by abarral, 2 months 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.