Changeset 10425 for NEMO/trunk/src/TOP/PISCES
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/TOP/PISCES
- Files:
-
- 20 edited
-
P2Z/p2zbio.F90 (modified) (1 diff)
-
P2Z/p2zexp.F90 (modified) (3 diffs)
-
P4Z/p4zche.F90 (modified) (1 diff)
-
P4Z/p4zflx.F90 (modified) (3 diffs)
-
P4Z/p4zlim.F90 (modified) (2 diffs)
-
P4Z/p4zopt.F90 (modified) (1 diff)
-
P4Z/p4zprod.F90 (modified) (2 diffs)
-
P4Z/p4zrem.F90 (modified) (1 diff)
-
P4Z/p4zsbc.F90 (modified) (2 diffs)
-
P4Z/p4zsed.F90 (modified) (1 diff)
-
P4Z/p4zsink.F90 (modified) (2 diffs)
-
P4Z/p4zsms.F90 (modified) (8 diffs)
-
P4Z/p5zlim.F90 (modified) (2 diffs)
-
P4Z/p5zprod.F90 (modified) (2 diffs)
-
SED/sed.F90 (modified) (2 diffs)
-
SED/sed_oce.F90 (modified) (1 diff)
-
SED/sedadv.F90 (modified) (1 diff)
-
SED/sedrst.F90 (modified) (4 diffs)
-
sms_pisces.F90 (modified) (2 diffs)
-
trcini_pisces.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P2Z/p2zbio.F90
r10068 r10425 341 341 ! 342 342 IF( lk_iomput ) THEN 343 CALL lbc_lnk( zw2d(:,:,:),'T', 1. )344 CALL lbc_lnk_multi( zw3d(:,:,:,1),'T', 1., zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1. )343 CALL lbc_lnk( 'p2zbio', zw2d(:,:,:),'T', 1. ) 344 CALL lbc_lnk_multi( 'p2zbio', zw3d(:,:,:,1),'T', 1., zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1. ) 345 345 ! Save diagnostics 346 346 CALL iom_put( "TNO3PHY", zw2d(:,:,1) ) -
NEMO/trunk/src/TOP/PISCES/P2Z/p2zexp.F90
r10068 r10425 113 113 END DO 114 114 115 CALL lbc_lnk( sedpocn, 'T', 1. )115 CALL lbc_lnk( 'p2zexp', sedpocn, 'T', 1. ) 116 116 117 117 ! Oa & Ek: diagnostics depending on jpdia2d ! left as example … … 229 229 END DO 230 230 END DO 231 CALL lbc_lnk( cmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)232 areacot = glob_sum( e1e2t(:,:) * cmask(:,:) )231 CALL lbc_lnk( 'p2zexp', cmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged) 232 areacot = glob_sum( 'p2zexp', e1e2t(:,:) * cmask(:,:) ) 233 233 ! 234 234 IF( ln_rsttr ) THEN … … 248 248 ALLOCATE( cmask(jpi,jpj) , dminl(jpi,jpj) , dmin3(jpi,jpj,jpk), & 249 249 & sedpocb(jpi,jpj) , sedpocn(jpi,jpj), STAT=p2z_exp_alloc ) 250 IF( p2z_exp_alloc /= 0 ) CALL ctl_ warn('p2z_exp_alloc : failed to allocate arrays.')250 IF( p2z_exp_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p2z_exp_alloc : failed to allocate arrays.' ) 251 251 ! 252 252 END FUNCTION p2z_exp_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zche.F90
r10222 r10425 823 823 p4z_che_alloc = MAXVAL( ierr ) 824 824 ! 825 IF( p4z_che_alloc /= 0 ) CALL ctl_ warn('p4z_che_alloc : failed to allocate arrays.')825 IF( p4z_che_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_che_alloc : failed to allocate arrays.' ) 826 826 ! 827 827 END FUNCTION p4z_che_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zflx.F90
r10068 r10425 172 172 END DO 173 173 174 t_oce_co2_flx = glob_sum( oce_co2(:,:) ) ! Total Flux of Carbon 174 IF( iom_use("tcflx") .OR. iom_use("tcflxcum") .OR. kt == nitrst & 175 & .OR. (ln_check_mass .AND. kt == nitend) ) & 176 t_oce_co2_flx = glob_sum( 'p4zflx', oce_co2(:,:) ) ! Total Flux of Carbon 175 177 t_oce_co2_flx_cum = t_oce_co2_flx_cum + t_oce_co2_flx ! Cumulative Total Flux of Carbon 176 ! t_atm_co2_flx = glob_sum( satmco2(:,:) * e1e2t(:,:) ) ! Total atmospheric pCO2178 ! t_atm_co2_flx = glob_sum( 'p4zflx', satmco2(:,:) * e1e2t(:,:) ) ! Total atmospheric pCO2 177 179 t_atm_co2_flx = atcco2 ! Total atmospheric pCO2 178 180 … … 205 207 CALL iom_put( "Dpo2" , zw2d ) 206 208 ENDIF 207 IF( iom_use( "tcflx" ) )CALL iom_put( "tcflx" , t_oce_co2_flx * rfact2r ) ! molC/s208 CALL iom_put( "tcflxcum" , t_oce_co2_flx_cum )! molC209 CALL iom_put( "tcflx" , t_oce_co2_flx * rfact2r ) ! molC/s 210 CALL iom_put( "tcflxcum" , t_oce_co2_flx_cum ) ! molC 209 211 ! 210 212 DEALLOCATE( zw2d ) … … 376 378 ALLOCATE( satmco2(jpi,jpj), patm(jpi,jpj), STAT=p4z_flx_alloc ) 377 379 ! 378 IF( p4z_flx_alloc /= 0 ) CALL ctl_ warn('p4z_flx_alloc : failed to allocate arrays')380 IF( p4z_flx_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_flx_alloc : failed to allocate arrays' ) 379 381 ! 380 382 END FUNCTION p4z_flx_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zlim.F90
r10227 r10425 293 293 !! *** ROUTINE p5z_lim_alloc *** 294 294 !!---------------------------------------------------------------------- 295 USE lib_mpp , ONLY: ctl_ warn295 USE lib_mpp , ONLY: ctl_stop 296 296 !!---------------------------------------------------------------------- 297 297 … … 306 306 & xlimsi (jpi,jpj,jpk), STAT=p4z_lim_alloc ) 307 307 ! 308 IF( p4z_lim_alloc /= 0 ) CALL ctl_ warn('p4z_lim_alloc : failed to allocate arrays.')308 IF( p4z_lim_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_lim_alloc : failed to allocate arrays.' ) 309 309 ! 310 310 END FUNCTION p4z_lim_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zopt.F90
r10362 r10425 463 463 ekg(jpi,jpj,jpk), STAT= p4z_opt_alloc ) 464 464 ! 465 IF( p4z_opt_alloc /= 0 ) CALL ctl_ warn('p4z_opt_alloc : failed to allocate arrays.')465 IF( p4z_opt_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_opt_alloc : failed to allocate arrays.' ) 466 466 ! 467 467 END FUNCTION p4z_opt_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zprod.F90
r10401 r10425 340 340 ! Total primary production per year 341 341 IF( iom_use( "tintpp" ) .OR. ( ln_check_mass .AND. kt == nitend .AND. knt == nrdttrc ) ) & 342 & tpp = glob_sum( ( zprorcan(:,:,:) + zprorcad(:,:,:) ) * cvol(:,:,:) )342 & tpp = glob_sum( 'p4zprod', ( zprorcan(:,:,:) + zprorcad(:,:,:) ) * cvol(:,:,:) ) 343 343 344 344 IF( lk_iomput ) THEN … … 529 529 ALLOCATE( quotan(jpi,jpj,jpk), quotad(jpi,jpj,jpk), STAT = p4z_prod_alloc ) 530 530 ! 531 IF( p4z_prod_alloc /= 0 ) CALL ctl_ warn('p4z_prod_alloc : failed to allocate arrays.')531 IF( p4z_prod_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_prod_alloc : failed to allocate arrays.' ) 532 532 ! 533 533 END FUNCTION p4z_prod_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zrem.F90
r10362 r10425 363 363 ALLOCATE( denitr(jpi,jpj,jpk), STAT=p4z_rem_alloc ) 364 364 ! 365 IF( p4z_rem_alloc /= 0 ) CALL ctl_ warn('p4z_rem_alloc: failed to allocate arrays')365 IF( p4z_rem_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_rem_alloc: failed to allocate arrays' ) 366 366 ! 367 367 END FUNCTION p4z_rem_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsbc.F90
r10416 r10425 368 368 ztimes_riv = 1._wp / REAL(ntimes_riv, wp) 369 369 DO jm = 1, ntimes_riv 370 rivinput(ifpr) = rivinput(ifpr) + glob_sum( zriver(:,:,jm) * tmask(:,:,1) * ztimes_riv )370 rivinput(ifpr) = rivinput(ifpr) + glob_sum( 'p4zsbc', zriver(:,:,jm) * tmask(:,:,1) * ztimes_riv ) 371 371 END DO 372 372 DEALLOCATE( zriver) … … 449 449 END DO 450 450 ! 451 CALL lbc_lnk( zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged)451 CALL lbc_lnk( 'p4zsbc', zcmask , 'T', 1. ) ! lateral boundary conditions on cmask (sign unchanged) 452 452 ! 453 453 DO jk = 1, jpk -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsed.F90
r10416 r10425 504 504 ALLOCATE( nitrpot(jpi,jpj,jpk), sdenit(jpi,jpj), STAT=p4z_sed_alloc ) 505 505 ! 506 IF( p4z_sed_alloc /= 0 ) CALL ctl_ warn('p4z_sed_alloc: failed to allocate arrays')506 IF( p4z_sed_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_sed_alloc: failed to allocate arrays' ) 507 507 ! 508 508 END FUNCTION p4z_sed_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsink.F90
r10416 r10425 127 127 ! Total carbon export per year 128 128 IF( iom_use( "tcexp" ) .OR. ( ln_check_mass .AND. kt == nitend .AND. knt == nrdttrc ) ) & 129 & t_oce_co2_exp = glob_sum( ( sinking(:,:,ik100) + sinking2(:,:,ik100) ) * e1e2t(:,:) * tmask(:,:,1) )129 & t_oce_co2_exp = glob_sum( 'p4zsink', ( sinking(:,:,ik100) + sinking2(:,:,ik100) ) * e1e2t(:,:) * tmask(:,:,1) ) 130 130 ! 131 131 IF( lk_iomput ) THEN … … 220 220 ! 221 221 p4z_sink_alloc = MAXVAL( ierr ) 222 IF( p4z_sink_alloc /= 0 ) CALL ctl_ warn('p4z_sink_alloc : failed to allocate arrays.')222 IF( p4z_sink_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p4z_sink_alloc : failed to allocate arrays.' ) 223 223 ! 224 224 END FUNCTION p4z_sink_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90
r10416 r10425 361 361 ! ! --------------------------- ! 362 362 ! set total alkalinity, phosphate, nitrate & silicate 363 zarea = 1._wp / glob_sum( cvol(:,:,:) ) * 1e6364 365 zalksumn = glob_sum( trn(:,:,:,jptal) * cvol(:,:,:) ) * zarea366 zpo4sumn = glob_sum( trn(:,:,:,jppo4) * cvol(:,:,:) ) * zarea * po4r367 zno3sumn = glob_sum( trn(:,:,:,jpno3) * cvol(:,:,:) ) * zarea * rno3368 zsilsumn = glob_sum( trn(:,:,:,jpsil) * cvol(:,:,:) ) * zarea363 zarea = 1._wp / glob_sum( 'p4zsms', cvol(:,:,:) ) * 1e6 364 365 zalksumn = glob_sum( 'p4zsms', trn(:,:,:,jptal) * cvol(:,:,:) ) * zarea 366 zpo4sumn = glob_sum( 'p4zsms', trn(:,:,:,jppo4) * cvol(:,:,:) ) * zarea * po4r 367 zno3sumn = glob_sum( 'p4zsms', trn(:,:,:,jpno3) * cvol(:,:,:) ) * zarea * rno3 368 zsilsumn = glob_sum( 'p4zsms', trn(:,:,:,jpsil) * cvol(:,:,:) ) * zarea 369 369 370 370 IF(lwp) WRITE(numout,*) ' TALKN mean : ', zalksumn … … 382 382 ! 383 383 IF( .NOT. ln_top_euler ) THEN 384 zalksumb = glob_sum( trb(:,:,:,jptal) * cvol(:,:,:) ) * zarea385 zpo4sumb = glob_sum( trb(:,:,:,jppo4) * cvol(:,:,:) ) * zarea * po4r386 zno3sumb = glob_sum( trb(:,:,:,jpno3) * cvol(:,:,:) ) * zarea * rno3387 zsilsumb = glob_sum( trb(:,:,:,jpsil) * cvol(:,:,:) ) * zarea384 zalksumb = glob_sum( 'p4zsms', trb(:,:,:,jptal) * cvol(:,:,:) ) * zarea 385 zpo4sumb = glob_sum( 'p4zsms', trb(:,:,:,jppo4) * cvol(:,:,:) ) * zarea * po4r 386 zno3sumb = glob_sum( 'p4zsms', trb(:,:,:,jpno3) * cvol(:,:,:) ) * zarea * rno3 387 zsilsumb = glob_sum( 'p4zsms', trb(:,:,:,jpsil) * cvol(:,:,:) ) * zarea 388 388 389 389 IF(lwp) WRITE(numout,*) ' ' … … 449 449 ENDIF 450 450 ! 451 no3budget = glob_sum( zwork(:,:,:) * cvol(:,:,:) )451 no3budget = glob_sum( 'p4zsms', zwork(:,:,:) * cvol(:,:,:) ) 452 452 no3budget = no3budget / areatot 453 453 CALL iom_put( "pno3tot", no3budget ) … … 467 467 ENDIF 468 468 ! 469 po4budget = glob_sum( zwork(:,:,:) * cvol(:,:,:) )469 po4budget = glob_sum( 'p4zsms', zwork(:,:,:) * cvol(:,:,:) ) 470 470 po4budget = po4budget / areatot 471 471 CALL iom_put( "ppo4tot", po4budget ) … … 475 475 zwork(:,:,:) = trn(:,:,:,jpsil) + trn(:,:,:,jpgsi) + trn(:,:,:,jpdsi) 476 476 ! 477 silbudget = glob_sum( zwork(:,:,:) * cvol(:,:,:) )477 silbudget = glob_sum( 'p4zsms', zwork(:,:,:) * cvol(:,:,:) ) 478 478 silbudget = silbudget / areatot 479 479 CALL iom_put( "psiltot", silbudget ) … … 483 483 zwork(:,:,:) = trn(:,:,:,jpno3) * rno3 + trn(:,:,:,jptal) + trn(:,:,:,jpcal) * 2. 484 484 ! 485 alkbudget = glob_sum( zwork(:,:,:) * cvol(:,:,:) ) !485 alkbudget = glob_sum( 'p4zsms', zwork(:,:,:) * cvol(:,:,:) ) ! 486 486 alkbudget = alkbudget / areatot 487 487 CALL iom_put( "palktot", alkbudget ) … … 493 493 & + ( trn(:,:,:,jpzoo) + trn(:,:,:,jpmes) ) * ferat3 494 494 ! 495 ferbudget = glob_sum( zwork(:,:,:) * cvol(:,:,:) )495 ferbudget = glob_sum( 'p4zsms', zwork(:,:,:) * cvol(:,:,:) ) 496 496 ferbudget = ferbudget / areatot 497 497 CALL iom_put( "pfertot", ferbudget ) … … 502 502 ! -------------------------------------------------------------------------------- 503 503 IF( iom_use( "tnfix" ) .OR. ( ln_check_mass .AND. kt == nitend ) ) THEN 504 znitrpottot = glob_sum ( nitrpot(:,:,:) * nitrfix * cvol(:,:,:) )504 znitrpottot = glob_sum ( 'p4zsms', nitrpot(:,:,:) * nitrfix * cvol(:,:,:) ) 505 505 CALL iom_put( "tnfix" , znitrpottot * xfact3 ) ! Global nitrogen fixation molC/l to molN/m3 506 506 ENDIF 507 507 ! 508 508 IF( iom_use( "tdenit" ) .OR. ( ln_check_mass .AND. kt == nitend ) ) THEN 509 zrdenittot = glob_sum ( denitr(:,:,:) * rdenit * xnegtr(:,:,:) * cvol(:,:,:) )510 zsdenittot = glob_sum ( sdenit(:,:) * e1e2t(:,:) * tmask(:,:,1) )509 zrdenittot = glob_sum ( 'p4zsms', denitr(:,:,:) * rdenit * xnegtr(:,:,:) * cvol(:,:,:) ) 510 zsdenittot = glob_sum ( 'p4zsms', sdenit(:,:) * e1e2t(:,:) * tmask(:,:,1) ) 511 511 CALL iom_put( "tdenit" , ( zrdenittot + zsdenittot ) * xfact3 ) ! Total denitrification molC/l to molN/m3 512 512 ENDIF 513 513 ! 514 514 IF( ln_check_mass .AND. kt == nitend ) THEN ! Compute the budget of NO3, ALK, Si, Fer 515 t_atm_co2_flx = t_atm_co2_flx / glob_sum( e1e2t(:,:) )515 t_atm_co2_flx = t_atm_co2_flx / glob_sum( 'p4zsms', e1e2t(:,:) ) 516 516 t_oce_co2_flx = t_oce_co2_flx * xfact1 * (-1 ) 517 517 tpp = tpp * 1000. * xfact1 -
NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.F90
r10362 r10425 535 535 !! *** ROUTINE p5z_lim_alloc *** 536 536 !!---------------------------------------------------------------------- 537 USE lib_mpp , ONLY: ctl_ warn537 USE lib_mpp , ONLY: ctl_stop 538 538 INTEGER :: ierr(2) ! Local variables 539 539 !!---------------------------------------------------------------------- … … 559 559 p5z_lim_alloc = MAXVAL( ierr ) 560 560 ! 561 IF( p5z_lim_alloc /= 0 ) CALL ctl_ warn('p5z_lim_alloc : failed to allocate arrays.')561 IF( p5z_lim_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p5z_lim_alloc : failed to allocate arrays.' ) 562 562 ! 563 563 END FUNCTION p5z_lim_alloc -
NEMO/trunk/src/TOP/PISCES/P4Z/p5zprod.F90
r10362 r10425 462 462 ! Total primary production per year 463 463 IF( iom_use( "tintpp" ) .OR. ( ln_check_mass .AND. kt == nitend .AND. knt == nrdttrc ) ) & 464 & tpp = glob_sum( ( zprorcan(:,:,:) + zprorcad(:,:,:) + zprorcap(:,:,:) ) * cvol(:,:,:) )464 & tpp = glob_sum( 'p5zprod', ( zprorcan(:,:,:) + zprorcad(:,:,:) + zprorcap(:,:,:) ) * cvol(:,:,:) ) 465 465 466 466 IF( lk_iomput ) THEN … … 624 624 ALLOCATE( zdaylen(jpi,jpj), STAT = p5z_prod_alloc ) 625 625 ! 626 IF( p5z_prod_alloc /= 0 ) CALL ctl_ warn('p5z_prod_alloc : failed to allocate arrays.')626 IF( p5z_prod_alloc /= 0 ) CALL ctl_stop( 'STOP', 'p5z_prod_alloc : failed to allocate arrays.' ) 627 627 ! 628 628 END FUNCTION p5z_prod_alloc -
NEMO/trunk/src/TOP/PISCES/SED/sed.F90
r10222 r10425 154 154 !! *** ROUTINE sed_alloc *** 155 155 !!------------------------------------------------------------------- 156 USE lib_mpp, ONLY: ctl_ warn156 USE lib_mpp, ONLY: ctl_stop 157 157 !!------------------------------------------------------------------- 158 158 ! … … 166 166 & mol_wgt(jpsol), STAT=sed_alloc ) 167 167 168 IF( sed_alloc /= 0 ) CALL ctl_ warn('sed_alloc: failed to allocate arrays')168 IF( sed_alloc /= 0 ) CALL ctl_stop( 'STOP', 'sed_alloc: failed to allocate arrays' ) 169 169 ! 170 170 END FUNCTION sed_alloc -
NEMO/trunk/src/TOP/PISCES/SED/sed_oce.F90
r10225 r10425 25 25 !! *** ROUTINE sed_alloc *** 26 26 !!------------------------------------------------------------------- 27 USE lib_mpp, ONLY: ctl_ warn27 USE lib_mpp, ONLY: ctl_stop 28 28 !!------------------------------------------------------------------- 29 29 ! 30 30 ALLOCATE( profsed(jpksed) , profsedw(jpksed) , STAT=sed_oce_alloc ) 31 31 32 IF( sed_oce_alloc /= 0 ) CALL ctl_ warn('sed_oce_alloc: failed to allocate arrays')32 IF( sed_oce_alloc /= 0 ) CALL ctl_stop( 'STOP', 'sed_oce_alloc: failed to allocate arrays' ) 33 33 ! 34 34 END FUNCTION sed_oce_alloc -
NEMO/trunk/src/TOP/PISCES/SED/sedadv.F90
r10222 r10425 436 436 & ckpor(jpksed) , STAT = sed_adv_alloc ) 437 437 ! 438 IF( sed_adv_alloc /= 0 ) CALL ctl_ warn('sed_adv_alloc : failed to allocate arrays.')438 IF( sed_adv_alloc /= 0 ) CALL ctl_stop( 'STOP', 'sed_adv_alloc : failed to allocate arrays.' ) 439 439 ! 440 440 END FUNCTION sed_adv_alloc -
NEMO/trunk/src/TOP/PISCES/SED/sedrst.F90
r10333 r10425 78 78 IF(lwp) WRITE(numsed,*) & 79 79 ' open sed restart.output NetCDF file: ',TRIM(clpath)//clname 80 CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., k iolib = jprstlib, kdlev = jpksed )80 CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., kdlev = jpksed ) 81 81 lrst_sed = .TRUE. 82 82 ENDIF … … 105 105 CHARACTER(len = 20) :: cltra 106 106 CHARACTER(LEN=20) :: name1 107 INTEGER :: jlibalt = jprstlib108 107 LOGICAL :: llok 109 108 !-------------------------------------------------------------------- … … 338 337 CHARACTER(len=*), INTENT(in) :: cdrw ! "READ"/"WRITE" flag 339 338 ! 340 INTEGER :: jlibalt = jprstlib341 339 LOGICAL :: llok 342 340 REAL(wp) :: zkt, zrdttrc1 … … 353 351 354 352 IF( ln_rst_sed ) THEN 355 CALL iom_open( TRIM(cn_sedrst_indir)//'/'//cn_sedrst_in, numrsr , kiolib = jlibalt)353 CALL iom_open( TRIM(cn_sedrst_indir)//'/'//cn_sedrst_in, numrsr ) 356 354 CALL iom_get ( numrsr, 'kt', zkt ) ! last time-step of previous run 357 355 -
NEMO/trunk/src/TOP/PISCES/sms_pisces.F90
r10416 r10425 131 131 !! *** ROUTINE sms_pisces_alloc *** 132 132 !!---------------------------------------------------------------------- 133 USE lib_mpp , ONLY: ctl_ warn133 USE lib_mpp , ONLY: ctl_stop 134 134 INTEGER :: ierr(10) ! Local variables 135 135 !!---------------------------------------------------------------------- … … 186 186 sms_pisces_alloc = MAXVAL( ierr ) 187 187 ! 188 IF( sms_pisces_alloc /= 0 ) CALL ctl_ warn('sms_pisces_alloc: failed to allocate arrays')188 IF( sms_pisces_alloc /= 0 ) CALL ctl_stop( 'STOP', 'sms_pisces_alloc: failed to allocate arrays' ) 189 189 ! 190 190 END FUNCTION sms_pisces_alloc -
NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90
r10416 r10425 118 118 ierr = ierr + p4z_rem_alloc() 119 119 ! 120 IF( lk_mpp ) CALL mpp_sum(ierr )120 CALL mpp_sum( 'trcini_pisces', ierr ) 121 121 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'pisces_alloc: unable to allocate PISCES arrays' ) 122 122 ! … … 311 311 ierr = ierr + p2z_exp_alloc() 312 312 ! 313 IF( lk_mpp ) CALL mpp_sum(ierr )313 CALL mpp_sum( 'trcini_pisces', ierr ) 314 314 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'p2z_ini: unable to allocate LOBSTER arrays' ) 315 315
Note: See TracChangeset
for help on using the changeset viewer.
