Changeset 2101 for LMDZ5/trunk/libf
- Timestamp:
- Jul 24, 2014, 6:26:10 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/calbeta_clim.F90
r2098 r2101 23 23 real lat_sahel,beta(klon) 24 24 real lat_nord,lat_sud 25 26 include "iniprint.h" 25 27 !============================================== 26 28 … … 33 35 time_radian=(time+15.)*2.*pi / year_len 34 36 35 print*,'BETA time_radian',time_radian,time37 if (prt_level >= 1) print *, 'time_radian time', time_radian, time 36 38 37 39 lat(:)=180.*lat_radian(:)/pi !lat(:)=lat_radian(:)
Note: See TracChangeset
for help on using the changeset viewer.