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

Timestamp:

Oct 2, 2012, 5:57:45 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Phasage de la dynamique parallèle localisée (petite mémoire) avec la branche LMDZ4V5.0-dev (fin de la branche)
Validation effectuée par comparaison des fichiers de sorties debug (u, v, t, q, masse, etc ...) d'une simulation sans physique
faite avec la version du modèle donnée paY. Meurdesoif et la version phasée avec la r1399 (fin de la branche LMDZ4V5.0-dev)

---

Phasing of the localised (low memory) parallel dynamics package with the LMDZ4V5.0-dev 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 r1399 (end of the LMDZ4V5.0-dev branch)

File:

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

LMDZ5/trunk/libf/dyn3dmem/inter_barxy_m.F90

@@ -118 +118 @@
     IMPLICIT NONE
 
-    REAL, intent(in):: dlonid(:)
-    real, intent(in):: fdat(:)
-    real, intent(in):: rlonimod(:)
+    REAL, intent(in):: dlonid(:) ! dim(idatmax)
+    real, intent(in):: fdat(:) ! dim(idatmax)
+    real, intent(in):: rlonimod(:) ! dim(imodmax)
 
     real inter_barx(size(rlonimod))
@@ -176 +176 @@
 
     DO idat = 1, idatmax
-       xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
+       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
        fdd(idat) = fdat (idat)
     ENDDO