Changeset 3679 for LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_read_forc_cases.h

Timestamp:

May 8, 2020, 8:51:41 AM (4 years ago)

Author:

fhourdin

Message:

Some cleaning for the SCM

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_read_forc_cases.h (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_read_forc_cases.h

@@ -1015 +1015 @@
       if (forcing_SCM) then
 
-         write(*,*),'avant call read_SCM'
-         call read_SCM_cas
+         write(*,*),'avant call old_read_SCM_cas'
+         call old_read_SCM_cas
          write(*,*) 'Forcing read'