Context Navigation

← Previous Change
Next Change →

libf

Timestamp:

Jun 9, 2020, 3:57:33 PM (5 years ago)

Author:

emillour

Message:

Generic GCM:
Major cleanup: remove obsolete compilation scripts (makegcm*) and old dynamical
core, as it is obsolete with respect to the one provide in LMDZ.COMMON.
EM

Location:

trunk/LMDZ.GENERIC/libf

Files:

: 1 added
: 7 deleted
: 14 edited
: 2 copied

dyn3d (deleted)
dynphy_lonlat/phystd/caldyn0.F (copied) (copied from trunk/LMDZ.GENERIC/libf/dyn3d/caldyn0.F)
dynphy_lonlat/phystd/defrun_new.F (copied) (copied from trunk/LMDZ.GENERIC/libf/dyn3d/defrun_new.F)
dynphy_lonlat/phystd/exner_hyb.F (deleted)
dynphy_lonlat/phystd/newstart.F (modified) (3 diffs)
dynphy_lonlat/phystd/start2archive.F (modified) (3 diffs)
filtrez (deleted)
grid (deleted)
misc (deleted)
phy_common (deleted)
phystd/dyn1d/abort_gcm.F (modified) (1 diff)
phystd/dyn1d/comconst_mod.F90 (modified) (1 diff)
phystd/dyn1d/comgeom.h (modified) (1 diff)
phystd/dyn1d/comvert_mod.F90 (modified) (1 diff)
phystd/dyn1d/control_mod.F90 (modified) (1 diff)
phystd/dyn1d/disvert.F (deleted)
phystd/dyn1d/disvert_noterre.F (added)
phystd/dyn1d/ener_mod.F90 (modified) (1 diff)
phystd/dyn1d/infotrac.F90 (modified) (1 diff)
phystd/dyn1d/logic_mod.F90 (modified) (1 diff)
phystd/dyn1d/mod_const_mpi.F90 (modified) (1 diff)
phystd/dyn1d/paramet.h (modified) (1 diff)
phystd/dyn1d/rcm1d.F (modified) (3 diffs)
phystd/dyn1d/serre_mod.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

-                      r2336
+                      r2354
       use phys_state_var_mod, only: phys_state_var_init
       use phyetat0_mod, only: phyetat0
+      use exner_hyb_m, only: exner_hyb
       implicit none
 …
       REAL :: xpn,xps,xppn(iim),xpps(iim)
       REAL :: p3d(iip1, jjp1, llm+1)
-      REAL :: beta(iip1,jjp1,llm)
 !      REAL dteta(ip1jmp1,llm)
 …
 c-----------------------------------------------------------------------
       CALL exner_hyb(ip1jmp1, ps, p3d, beta, pks, pk, pkf)
+      CALL exner_hyb(ip1jmp1, ps, p3d, pks, pk, pkf)
 ! Calcul de la temperature potentielle teta

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F

-                      r2336
+                      r2354
       use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd,
      &                          east_gwstress, west_gwstress
+      use exner_hyb_m, only: exner_hyb
       implicit none
 …
       REAL pk(ip1jmp1,llm)
       REAL pkf(ip1jmp1,llm)
-      REAL beta(iip1,jjp1,llm)
       REAL phis(ip1jmp1)                     ! geopotentiel au sol
       REAL masse(ip1jmp1,llm)                ! masse de l'atmosphere
 …
       CALL pression(ip1jmp1, ap, bp, ps, p3d)
       call exner_hyb(ip1jmp1, ps, p3d, beta, pks, pk, pkf)
+      call exner_hyb(ip1jmp1, ps, p3d, pks, pk, pkf)
 c=======================================================================

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/abort_gcm.F

r1403	r2354
1		link ../../dyn3d/abort_gcm.F
	1	link ../../../../LMDZ.COMMON/libf/dyn3d/abort_gcm.F

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/comconst_mod.F90

r1422	r2354
1		link ../../~~dyn3d~~/comconst_mod.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/comconst_mod.F90

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/comgeom.h

r1403	r2354
1		link ../../~~dyn3d~~/comgeom.h
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/comgeom.h

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/comvert_mod.F90

r1422	r2354
1		link ../../~~dyn3d~~/comvert_mod.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/comvert_mod.F90

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/control_mod.F90

r1403	r2354
1		link ../../~~dyn3d~~/control_mod.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/control_mod.F90

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/ener_mod.F90

r1422	r2354
1		link ../../~~dyn3d~~/ener_mod.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/ener_mod.F90

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/infotrac.F90

r1403	r2354
1		link ../../~~dyn3d~~/infotrac.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/infotrac.F90

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/logic_mod.F90

r1422	r2354
1		link ../../dyn3d/logic_mod.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d/logic_mod.F90

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/mod_const_mpi.F90

r1403	r2354
1		link ../../dyn3d/mod_const_mpi.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d/mod_const_mpi.F90

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/paramet.h

r1403	r2354
1		link ../../~~dyn3d~~/paramet.h
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/paramet.h

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

-                      r2076
+                      r2354
      &                       presnivs,pseudoalt,scaleheight
       USE vertical_layers_mod, ONLY: init_vertical_layers
       USE logic_mod, ONLY: hybrid,autozlevs
+      USE logic_mod, ONLY: hybrid
       use regular_lonlat_mod, only: init_regular_lonlat
       use planete_mod, only: ini_planete_mod
 …
 !     added by RW for autozlevs computation
+      logical autozlevs
       real nu, xx, pMIN, zlev, Htop
       real logplevs(llm)
 …
       endif
       call disvert
+      call disvert_noterre
       ! now that disvert has been called, initialize module vertical_layers_mod
       call init_vertical_layers(nlayer,preff,scaleheight,

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/serre_mod.F90

r1422	r2354
1		link ../../~~dyn3d~~/serre_mod.F90
	1	link ../../../../LMDZ.COMMON/libf/dyn3d_common/serre_mod.F90

Note: See TracChangeset for help on using the changeset viewer.

Context Navigation

Changeset 2354 for trunk/LMDZ.GENERIC/libf

Legend:

Download in other formats: