Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/etat0_netcdf.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/etat0_netcdf.F
r1293 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 c … … 9 9 USE ioipsl 10 10 USE dimphy 11 USE control_mod 11 12 USE infotrac 12 13 USE fonte_neige_mod … … 89 90 90 91 #include "comdissnew.h" 91 #include "control.h"92 92 #include "serre.h" 93 93 #include "clesphys.h" … … 189 189 co2_ppm0 = co2_ppm 190 190 191 dtvr = daysec/ FLOAT(day_step)191 dtvr = daysec/REAL(day_step) 192 192 print*,'dtvr',dtvr 193 193 … … 691 691 C 692 692 write(*,*)'phystep ',dtvr,iphysiq,nbapp_rad 693 phystep = dtvr * FLOAT(iphysiq)694 radpas = NINT (86400./phystep/ FLOAT(nbapp_rad) )693 phystep = dtvr * REAL(iphysiq) 694 radpas = NINT (86400./phystep/ REAL(nbapp_rad) ) 695 695 write(*,*)'phystep =', phystep, radpas 696 696 cIM : lecture de co2_ppm & solaire ds physiq.def
Note: See TracChangeset
for help on using the changeset viewer.