Changeset 142
- Timestamp:
- 2004-10-19T15:27:27+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/cpl.F90
r83 r142 19 19 USE flx_oce ! in case of ice 20 20 USE ocfzpt ! ocean freezing point 21 USE daymod ! calendar 21 22 22 23 IMPLICIT NONE … … 70 71 71 72 CHARACTER (len=9) :: clpoolnam 72 INTEGER :: ipoolhandle, ipoolsize, index,jf73 INTEGER :: ipoolhandle, ipoolsize, jf 73 74 CHARACTER (len=3) :: cljobnam ! experiment name 74 75 INTEGER :: ierror 75 INTEGER,DIMENSION(4) :: imess, imesso 76 INTEGER :: getpid, mknod ! system functions76 ! INTEGER,DIMENSION(4) :: imess 77 INTEGER,DIMENSION(4) :: imesso 77 78 !!---------------------------------------------------------------------- 78 79 … … 136 137 IF(lwp) WRITE(numout,*) 137 138 IF(lwp) WRITE(numout,*) 'cpl_init: end of job due to error in pipes definitions' 138 CALL abort 139 CALL abort('') 139 140 END IF 140 141 … … 151 152 IF(lwp) WRITE(numout,*) 152 153 IF(lwp) WRITE(numout,*) 'cpl_init: end of job due to error in exchange first informations with Oasis' 153 CALL abort 154 CALL abort('') 154 155 END IF 155 156 … … 369 370 !! * Local declarations 370 371 INTEGER :: jf 371 372 CHARACTER (len=21) :: clold, clfor, clseq373 CHARACTER (len=32) :: clname374 372 375 373 NAMELIST/namcpl/ nexco, cchan, nmodcpl, cplmodnam, cploasis & … … 510 508 !! * modules used 511 509 USE ioipsl 510 USE phycst ! physical constants 512 511 513 512 !! * Arguments … … 534 533 535 534 INTEGER :: index 536 INTEGER, DIMENSION(3) :: infos535 ! INTEGER, DIMENSION(3) :: infos 537 536 CHARACTER (len=3) :: clmodinf ! Header or not 538 CHARACTER (len=3) :: cljobnam ! experiment name537 ! CHARACTER (len=3) :: cljobnam ! experiment name 539 538 !!---------------------------------------------------------------------- 540 539
Note: See TracChangeset
for help on using the changeset viewer.