Changeset 1674 for LMDZ5/trunk/libf/phylmd/phyetat0.F

Timestamp:

Oct 29, 2012, 5:27:03 PM (12 years ago)

Author:

Ehouarn Millour

Message:

Modification pour activation du 2D latitude-pression
(pour pouvoir compiler en -d 1xjmxlm)
dyn3d/fxhyp.F : calcul des longitudes a la main pour iim=1
dyn3d/groupe.F : desactive si iim=1
dyn3d/paramet.h : iip1=iim+1 au lieu de iim+1-1/iim precedemment
phylmd/iophy.F90 : on enleve les -1/iim
phylmd/phyetat0.F90 : on enleve les -1/iim

Modification for activation of the 3D latitude-pressure version
(to be compiled with -d 1xjmxlm)
dyn3d/fxhyp.F : longitudes imposed for iim=1
dyn3d/groupe.F : desactived when iim=1
dyn3d/paramet.h : iip1=iim+1 instead of iim+1-1/iim previously
phylmd/iophy.F90 : -1/iim removed
phylmd/phyetat0.F90 : -1/iim removed

FH et EM

File:

• LMDZ5/trunk/libf/phylmd/phyetat0.F (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phyetat0.F

@@ -76 +76 @@
 c FH1D
 c     real iolat(jjm+1)
-      real iolat(jjm+1-1/iim)
+      real iolat(jjm+1-1/(iim*jjm))
 c
 c Ouvrir le fichier contenant l'etat initial: