Changeset 2019 for LMDZ5/trunk/libf/phylmd/1D_decl_cases.h

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:

• LMDZ5/trunk/libf/phylmd/1D_decl_cases.h (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/1D_decl_cases.h

@@ -157 +157 @@
         logical :: Turb_fcg_gcssold
 
-        common /turb_forcing/
-     s  dtime_frcg,hthturb_gcssold, hqturb_gcssold,Turb_fcg_gcssold
+        common /turb_forcing/                                                   &
+     &  dtime_frcg,hthturb_gcssold, hqturb_gcssold,Turb_fcg_gcssold
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ! Declarations specifiques au cas Arm_cu