Changeset 1658 for LMDZ5/trunk/libf/dyn3dmem/inter_barxy_m.F90

Timestamp:

Oct 5, 2012, 9:56:56 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Phasage de la dynamique parallele localisee (petite memoire) avec le tronc LMDZ4 (HEAD)
Validation effectuee par comparaison des fichiers de sorties debug (u, v, t, q, masse, etc ...) d'une simulation sans physique
faite avec la version du modele donnee par Y. Meurdesoif et la version phasee avec la r1428 (fin du tronc LMDZ4)

---

Phasing of the localised (low memory) parallel dynamics package with the LMDZ4 trunk version of LMDZ
Validation consisted in comparing output debug files (u, v, t, q, masse, etc... ) of a no physics simulation
run with the version of the code given by Y. Meurdesoif and this version phased with r1428 (HEAD of the LMDZ4 trunk)

File:

• LMDZ5/trunk/libf/dyn3dmem/inter_barxy_m.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/dyn3dmem/inter_barxy_m.F90

@@ +1 @@
+!
+! $Id$
+!
 module inter_barxy_m
 
@@ -36 +39 @@
     ! jjm+1 latitudes rlatu du modele (latitudes des scalaires et de U)
     ! Si taille de la seconde dim = jjm, on veut interpoler sur les
-    ! jjm latitudes rlatv du modèle (latitudes de V) 
+    ! jjm latitudes rlatv du modele (latitudes de V) 
 
     ! Variables local to the procedure:
@@ -112 +115 @@
     !     rlonimod(imod): abscisses des interfaces des mailles modele
     !      ( L'indice 1 correspond a l'interface mailLE 1 / maille 2)
-    !      ( Les abscisses sont exprimées en degres)
+    !      ( Les abscisses sont exprimees en degres)
 
     use assert_eq_m, only: assert_eq
@@ -118 +121 @@
     IMPLICIT NONE
 
-    REAL, intent(in):: dlonid(:) ! dim(idatmax)
-    real, intent(in):: fdat(:) ! dim(idatmax)
-    real, intent(in):: rlonimod(:) ! dim(imodmax)
+    REAL, intent(in):: dlonid(:)
+    real, intent(in):: fdat(:)
+    real, intent(in):: rlonimod(:)
 
     real inter_barx(size(rlonimod))
@@ -292 +295 @@
   function inter_bary(yjdat, fdat, yjmod)
 
-    ! Interpolation barycentrique basée sur les aires.
+    ! Interpolation barycentrique basee sur les aires.
     ! Version unidimensionnelle, en latitude.
-    ! L'indice 1 correspond à l'interface maille 1 -- maille 2.
+    ! L'indice 1 correspond a l'interface maille 1 -- maille 2.
 
     use assert_m, only: assert
@@ -301 +304 @@
 
     REAL, intent(in):: yjdat(:)
-    ! (angles, ordonnées des interfaces des mailles des données, in
+    ! (angles, ordonnees des interfaces des mailles des donnees, in
     ! degrees, in increasing order)
 
-    REAL, intent(in):: fdat(:) ! champ de données
+    REAL, intent(in):: fdat(:) ! champ de donnees
 
     REAL, intent(in):: yjmod(:)
-    ! (ordonnées des interfaces des mailles du modèle)
+    ! (ordonnees des interfaces des mailles du modele)
     ! (in degrees, in strictly increasing order)
 
-    REAL inter_bary(size(yjmod)) ! champ du modèle
+    REAL inter_bary(size(yjmod)) ! champ du modele
 
     ! Variables local to the procedure:
 
     REAL y0, dy, dym 
-    INTEGER jdat ! indice du champ de données
-    integer jmod ! indice du champ du modèle
+    INTEGER jdat ! indice du champ de donnees
+    integer jmod ! indice du champ du modele
 
     !------------------------------------