Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/limit_netcdf.F

Timestamp:

Jan 20, 2010, 3:27:21 PM (14 years ago)

Author:

Laurent Fairhead

Message:

Nettoyage general pour se rapprocher des normes et éviter des erreurs a la
compilation:

• tous les FLOAT() sont remplacés par des REAL()
• tous les STOP dans phylmd sont remplacés par des appels à abort_gcm
• le common control défini dans le fichier control.h est remplacé par le module control_mod pour éviter des messages sur l'alignement des variables dans les déclarations
• des $Header$ remplacés par des $Id$ pour svn

Quelques remplacements à faire ont pu m'échapper

---

General cleanup of the code to try and adhere to norms and to prevent some
compilation errors:

• all FLOAT() instructions have been replaced by REAL() instructions
• all STOP instructions in phylmd have been replaced by calls to abort_gcm
• the common block control defined in the control.h file has been replaced by the control_mod to prevent compilation warnings on the alignement of declared variables
• $Header$ replaced by $Id$ for svn

Some changes which should have been made might have escaped me

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/limit_netcdf.F (modified) (8 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/limit_netcdf.F

@@ -8 +8 @@
 ! This routine is designed to work for Earth
       USE dimphy
+      USE control_mod
       use phys_state_var_mod , ONLY : pctsrf
       use inter_barxy_m, only: inter_barxy
@@ -29 +30 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "control.h"
 #include "logic.h"
 #include "netcdf.inc"
@@ -148 +148 @@
       kappa  = 0.2857143
       cpp    = 1004.70885
-      dtvr    = daysec/FLOAT(day_step)
+      dtvr    = daysec/ REAL(day_step)
       CALL inigeom
 c
@@ -418 +418 @@
           CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder)
           DO k = 1, 360
-            time = FLOAT(k-1)
+            time =  REAL(k-1)
             CALL SPLINT(ax,ay,yder,lmdep,time,by)
             champan(i,j,k) = by
@@ -632 +632 @@
           CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder)
           DO k = 1, 360
-            time = FLOAT(k-1)
+            time =  REAL(k-1)
             CALL SPLINT(ax,ay,yder,lmdep,time,by)
             champan(i,j,k) = by
@@ -951 +951 @@
           CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder)
           DO k = 1, 360
-            time = FLOAT(k-1)
+            time =  REAL(k-1)
             CALL SPLINT(ax,ay,yder,lmdep,time,by)
             champan(i,j,k) = by
@@ -1146 +1146 @@
           CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder)
           DO k = 1, 360
-            time = FLOAT(k-1)
+            time =  REAL(k-1)
             CALL SPLINT(ax,ay,yder,lmdep,time,by)
             champan(i,j,k) = by
@@ -1300 +1300 @@
       ierr = NF_PUT_VARA_DOUBLE (nid,id_RUG,debut,epais,phy_rug(1,k))
 #else
-      ierr = NF_PUT_VAR1_REAL (nid,id_tim,k,FLOAT(k))
+      ierr = NF_PUT_VAR1_REAL (nid,id_tim,k, REAL(k))
       IF (newlmt ) THEN
           ierr = NF_PUT_VARA_REAL (nid,id_FOCE,debut,epais