Changeset 677
- Timestamp:
- Jan 27, 2006, 4:14:22 PM (19 years ago)
- Location:
- LMDZ4/trunk/libf
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/bibio/write_field.F90
r631 r677 227 227 write (id,spacing) 228 228 else 229 write (id,' ')229 write (id,'("")') 230 230 write (id,spacing) 231 231 endif -
LMDZ4/trunk/libf/dyn3d/conf_dat2d.F
r524 r677 215 215 ENDDO 216 216 217 deallocate(xtemp) 218 deallocate(ytemp) 219 217 220 RETURN 218 221 END -
LMDZ4/trunk/libf/dyn3d/limit_netcdf.F
r524 r677 452 452 453 453 ierr = NF_OPEN('amipbc_sic_1x1.nc', NF_NOWRITE, ncid) 454 if (ierr.ne.0) then 455 print *, NF_STRERROR(ierr) 456 STOP 454 if (ierr.ne.0) THEN 455 ierr = NF_OPEN('amipbc_sic_1x1_clim.nc', NF_NOWRITE, ncid) 456 if (ierr.ne.0) THEN 457 print *, NF_STRERROR(ierr) 458 STOP 459 endif 457 460 ENDIF 458 461 … … 775 778 c ierr = NF_OPEN('AMIP_SST.nc', NF_NOWRITE, ncid) 776 779 ierr = NF_OPEN('amipbc_sst_1x1.nc', NF_NOWRITE, ncid) 777 if (ierr.ne.0) then 778 print *, NF_STRERROR(ierr) 779 STOP 780 if (ierr.ne.0) THEN 781 ierr = NF_OPEN('amipbc_sst_1x1_clim.nc', NF_NOWRITE, ncid) 782 if (ierr.ne.0) THEN 783 print *, NF_STRERROR(ierr) 784 STOP 785 endif 780 786 ENDIF 781 787 -
LMDZ4/trunk/libf/dyn3d/startvar.F
r644 r677 1054 1054 REAL, ALLOCATABLE :: var_tmp2d(:,:), var_tmp3d(:,:,:) 1055 1055 REAL, ALLOCATABLE :: ax(:), ay(:), yder(:) 1056 REAL, ALLOCATABLE :: varrr(:,:,:)1056 ! REAL, ALLOCATABLE :: varrr(:,:,:) 1057 1057 INTEGER, ALLOCATABLE :: lind(:) 1058 1058 ! … … 1062 1062 ALLOCATE(var_ana3d(iml_dyn, jml_dyn, llm_dyn)) 1063 1063 ENDIF 1064 ALLOCATE(varrr(iml_dyn, jml_dyn, llm_dyn))1064 ! ALLOCATE(varrr(iml_dyn, jml_dyn, llm_dyn)) 1065 1065 ! 1066 1066 ! … … 1173 1173 1174 1174 DEALLOCATE(lon_rad) 1175 DEALLOCATE(lon_ini) 1175 1176 DEALLOCATE(lat_rad) 1177 DEALLOCATE(lat_ini) 1178 DEALLOCATE(lev_dyn) 1176 1179 DEALLOCATE(var_tmp2d) 1177 1180 DEALLOCATE(var_tmp3d) -
LMDZ4/trunk/libf/phylmd/physiq.F
r674 r677 1236 1236 SAVE rain_con 1237 1237 SAVE snow_con 1238 SAVE bl95_b01239 SAVE bl95_b11240 1238 SAVE topswai 1241 1239 SAVE topswad … … 1246 1244 SAVE rnebcon0 1247 1245 SAVE clwcon0 1248 SAVE rnebcon1249 SAVE clwcon1250 1246 SAVE paire_ter 1251 1247 SAVE nhistoW -
LMDZ4/trunk/libf/phylmd/phytrac.F
r673 r677 156 156 logical lafin ! le flag de la fin de la physique 157 157 c Olivia 158 integer isplit,nsplit158 integer nsplit 159 159 REAL pmflxr(klon,klev+1), pmflxs(klon,klev+1) !--lessivage convection 160 160 REAL prfl(klon,klev+1), psfl(klon,klev+1) !--lessivage large-scale … … 163 163 REAL flxmass_w(klon,klev) 164 164 #endif 165 integer iflag_con165 c integer iflag_con 166 166 167 167 cAA Rem : nbtr : nombre de vrais traceurs est defini dans dimphy.h
Note: See TracChangeset
for help on using the changeset viewer.