Changeset 2154 for LMDZ5/trunk/libf
- Timestamp:
- Nov 25, 2014, 10:49:50 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/limit_netcdf.F90
r2128 r2154 55 55 !--- INPUT NETCDF FILES NAMES -------------------------------------------------- 56 56 CHARACTER(LEN=25) :: icefile, sstfile, dumstr 57 CHARACTER(LEN=25), PARAMETER :: famipsst='amipbc_sst_1x1.nc ', & 58 famipsic='amipbc_sic_1x1.nc ', & 59 fcpldsst='cpl_atm_sst.nc ', & 60 fcpldsic='cpl_atm_sic.nc ', & 61 fhistsst='histmth_sst.nc ', & 62 fhistsic='histmth_sic.nc ', & 63 frugo ='Rugos.nc ', & 64 falbe ='Albedo.nc ' 57 CHARACTER(LEN=25), PARAMETER :: famipsst ='amipbc_sst_1x1.nc ', & 58 famipsic ='amipbc_sic_1x1.nc ', & 59 fcpldsst ='cpl_atm_sst.nc ', & 60 fcpldsic ='cpl_atm_sic.nc ', & 61 fhistsst ='histmth_sst.nc ', & 62 fhistsic ='histmth_sic.nc ', & 63 frugo ='Rugos.nc ', & 64 falbe ='Albedo.nc ', & 65 feraisstk='sstk.nc ', & 66 feraici ='ci.nc ' 65 67 CHARACTER(LEN=10) :: varname 66 68 !--- OUTPUT VARIABLES FOR NETCDF FILE ------------------------------------------ … … 119 121 icefile=TRIM(fhistsic) 120 122 varname='pourc_sic' 123 ELSE IF ( NF90_OPEN(TRIM(feraici),NF90_NOWRITE,nid)==NF90_NOERR ) THEN 124 icefile=TRIM(feraici) 125 varname='ci' 121 126 ELSE 122 127 WRITE(lunout,*) 'ERROR! No sea-ice input file was found.' 123 WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsic),', ',trim(fcpldsic),', ',trim(fhistsic) 128 WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsic),', ',trim(fcpldsic),', ',trim(fhistsic), trim(feraici) 124 129 CALL abort_gcm('limit_netcdf','No sea-ice file was found',1) 125 130 END IF … … 180 185 sstfile=TRIM(fhistsst) 181 186 varname='tsol_oce' 187 ELSE IF ( NF90_OPEN(TRIM(feraisstk),NF90_NOWRITE,nid)==NF90_NOERR ) THEN 188 sstfile=TRIM(feraisstk) 189 varname='sstk' 182 190 ELSE 183 191 WRITE(lunout,*) 'ERROR! No sst input file was found.' 184 WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsst),trim(fcpldsst),trim(fhistsst) 192 WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsst),trim(fcpldsst),trim(fhistsst),trim(feraisstk) 185 193 CALL abort_gcm('limit_netcdf','No sst file was found',1) 186 194 END IF
Note: See TracChangeset
for help on using the changeset viewer.