Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/limit_netcdf.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/limit_netcdf.F
r1293 r1299 10 10 use phys_state_var_mod , ONLY : pctsrf 11 11 use inter_barxy_m, only: inter_barxy 12 USE control_mod 12 13 13 14 IMPLICIT none … … 29 30 #include "dimensions.h" 30 31 #include "paramet.h" 31 #include "control.h"32 32 #include "logic.h" 33 33 #include "netcdf.inc" … … 148 148 kappa = 0.2857143 149 149 cpp = 1004.70885 150 dtvr = daysec/ FLOAT(day_step)150 dtvr = daysec/REAL(day_step) 151 151 CALL inigeom 152 152 c … … 418 418 CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder) 419 419 DO k = 1, 360 420 time = FLOAT(k-1)420 time = REAL(k-1) 421 421 CALL SPLINT(ax,ay,yder,lmdep,time,by) 422 422 champan(i,j,k) = by … … 632 632 CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder) 633 633 DO k = 1, 360 634 time = FLOAT(k-1)634 time = REAL(k-1) 635 635 CALL SPLINT(ax,ay,yder,lmdep,time,by) 636 636 champan(i,j,k) = by … … 951 951 CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder) 952 952 DO k = 1, 360 953 time = FLOAT(k-1)953 time = REAL(k-1) 954 954 CALL SPLINT(ax,ay,yder,lmdep,time,by) 955 955 champan(i,j,k) = by … … 1146 1146 CALL SPLINE(ax,ay,lmdep,1.e30,1.e30,yder) 1147 1147 DO k = 1, 360 1148 time = FLOAT(k-1)1148 time = REAL(k-1) 1149 1149 CALL SPLINT(ax,ay,yder,lmdep,time,by) 1150 1150 champan(i,j,k) = by … … 1300 1300 ierr = NF_PUT_VARA_DOUBLE (nid,id_RUG,debut,epais,phy_rug(1,k)) 1301 1301 #else 1302 ierr = NF_PUT_VAR1_REAL (nid,id_tim,k, FLOAT(k))1302 ierr = NF_PUT_VAR1_REAL (nid,id_tim,k,REAL(k)) 1303 1303 IF (newlmt ) THEN 1304 1304 ierr = NF_PUT_VARA_REAL (nid,id_FOCE,debut,epais
Note: See TracChangeset
for help on using the changeset viewer.