Changeset 3679 for LMDZ6/trunk/libf/phylmd/dyn1d

Timestamp:

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

Author:

fhourdin

Message:

Some cleaning for the SCM

Location:

LMDZ6/trunk/libf/phylmd/dyn1d

Files:

• mod_1D_cases_read2.F90 (modified) (5 diffs)
• old_1D_read_forc_cases.h (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read2.F90

@@ -316 +316 @@
 
 !**********************************************************************************************
-SUBROUTINE read_SCM_cas
+SUBROUTINE old_read_SCM_cas
       implicit none
 
@@ -457 +457 @@
 
         print*,'Allocations OK'
-        call read_SCM (nid,nlev_cas,nt_cas,                                                                     &
+        call old_read_SCM (nid,nlev_cas,nt_cas,                                                                     &
      &     ap_cas,bp_cas,z_cas,plev_cas,zh_cas,plevh_cas,t_cas,th_cas,thv_cas,thl_cas,qv_cas,                    &
      &     ql_cas,qi_cas,rh_cas,rv_cas,u_cas,v_cas,vitw_cas,omega_cas,ug_cas,vg_cas,du_cas,hu_cas,vu_cas,        &
@@ -470 +470 @@
 
 
-END SUBROUTINE read_SCM_cas
+END SUBROUTINE old_read_SCM_cas
 
 
@@ -846 +846 @@
 
 !======================================================================
-      subroutine read_SCM(nid,nlevel,ntime,                                       &
+      subroutine old_read_SCM(nid,nlevel,ntime,                                       &
      &     ap,bp,zz,pp,zzh,pph,temp,theta,thv,thl,qv,ql,qi,rh,rv,u,v,vitw,omega,ug,vg,&
      &     du,hu,vu,dv,hv,vv,dt,ht,vt,dq,hq,vq,                                    &
@@ -1073 +1073 @@
 
          return 
-         end subroutine read_SCM
+         end subroutine old_read_SCM
 !======================================================================
 

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'