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

Last change on this file since 5452 was 5301, checked in by abarral, 2 months ago

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

File size: 425 bytes
RevLine 
[5301]1! Replaces fcg_gcssold.h
[2017]2
[5301]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
[2017]6
[5301]7  LOGICAL :: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold
8  LOGICAL :: Tp_ini_gcssold
9  LOGICAL :: xTurb_fcg_gcssold
[2017]10
[5301]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.