Changeset 2311 for LMDZ5/trunk/libf/phylmd/limit_read_mod.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/limit_read_mod.F90
r2209 r2311 151 151 IMPLICIT NONE 152 152 153 INCLUDE "iniprint.h"154 155 153 ! In- and ouput arguments 156 154 !**************************************************************************************** … … 195 193 IF ( type_ocean /= 'couple' ) THEN 196 194 ALLOCATE(pctsrf(klon,nbsrf), sst(klon), stat=ierr) 197 IF (ierr /= 0) CALL abort_ gcm(modname, 'PB in allocating pctsrf and sst',1)195 IF (ierr /= 0) CALL abort_physic(modname, 'PB in allocating pctsrf and sst',1) 198 196 END IF 199 197 200 198 IF ( .NOT. ok_veget ) THEN 201 199 ALLOCATE(rugos(klon), albedo(klon), stat=ierr) 202 IF (ierr /= 0) CALL abort_ gcm(modname, 'PB in allocating rugos and albedo',1)200 IF (ierr /= 0) CALL abort_physic(modname, 'PB in allocating rugos and albedo',1) 203 201 END IF 204 202 … … 220 218 221 219 ierr = NF90_OPEN ('limit.nc', NF90_NOWRITE, nid) 222 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,&220 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,& 223 221 'Pb d''ouverture du fichier de conditions aux limites',1) 224 222 … … 239 237 ! Ocean fraction 240 238 ierr = NF90_INQ_VARID(nid, 'FOCE', nvarid) 241 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname, 'Le champ <FOCE> est absent',1)239 IF (ierr /= NF90_NOERR) CALL abort_physic(modname, 'Le champ <FOCE> est absent',1) 242 240 243 241 ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_oce),start,epais) 244 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Lecture echouee pour <FOCE>' ,1)242 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FOCE>' ,1) 245 243 ! 246 244 ! Sea-ice fraction 247 245 ierr = NF90_INQ_VARID(nid, 'FSIC', nvarid) 248 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Le champ <FSIC> est absent',1)246 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <FSIC> est absent',1) 249 247 250 248 ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_sic),start,epais) 251 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Lecture echouee pour <FSIC>' ,1)249 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FSIC>' ,1) 252 250 253 251 … … 257 255 ! Land fraction 258 256 ierr = NF90_INQ_VARID(nid, 'FTER', nvarid) 259 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Le champ <FTER> est absent',1)257 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <FTER> est absent',1) 260 258 261 259 ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_ter),start,epais) 262 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Lecture echouee pour <FTER>',1)260 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FTER>',1) 263 261 ! 264 262 ! Continentale ice fraction 265 263 ierr = NF90_INQ_VARID(nid, 'FLIC', nvarid) 266 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Le champ <FLIC> est absent',1)264 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <FLIC> est absent',1) 267 265 268 266 ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_lic),start,epais) 269 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Lecture echouee pour <FLIC>',1)267 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FLIC>',1) 270 268 END IF 271 269 … … 279 277 280 278 ierr = NF90_INQ_VARID(nid, 'SST', nvarid) 281 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Le champ <SST> est absent',1)279 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <SST> est absent',1) 282 280 283 281 ierr = NF90_GET_VAR(nid,nvarid,sst_glo,start,epais) 284 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Lecture echouee pour <SST>',1)282 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <SST>',1) 285 283 286 284 END IF … … 295 293 ! Read albedo 296 294 ierr = NF90_INQ_VARID(nid, 'ALB', nvarid) 297 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Le champ <ALB> est absent',1)295 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <ALB> est absent',1) 298 296 299 297 ierr = NF90_GET_VAR(nid,nvarid,alb_glo,start,epais) 300 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Lecture echouee pour <ALB>',1)298 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <ALB>',1) 301 299 ! 302 300 ! Read rugosity 303 301 ierr = NF90_INQ_VARID(nid, 'RUG', nvarid) 304 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Le champ <RUG> est absent',1)302 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <RUG> est absent',1) 305 303 306 304 ierr = NF90_GET_VAR(nid,nvarid,rug_glo,start,epais) 307 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Lecture echouee pour <RUG>',1)305 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <RUG>',1) 308 306 309 307 END IF … … 314 312 !**************************************************************************************** 315 313 ierr = NF90_CLOSE(nid) 316 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Pb when closing file', 1)314 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Pb when closing file', 1) 317 315 ENDIF ! is_mpi_root 318 316
Note: See TracChangeset
for help on using the changeset viewer.