- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r2633 r2690 82 82 & vtr_bbl (jpi,jpj) , ahv_bbl (jpi,jpj) , mbkv_d (jpi,jpj) , mgrhv(jpi,jpj) , & 83 83 & ahu_bbl_0(jpi,jpj) , ahv_bbl_0(jpi,jpj) , & 84 & e3u_bbl_0(jpi,jpj) , e3v_bbl_0(jpi,jpj) , r1_e1e2t(jpi,jpj) , STAT= tra_bbl_alloc)84 & e3u_bbl_0(jpi,jpj) , e3v_bbl_0(jpi,jpj) , r1_e1e2t(jpi,jpj) , STAT= tra_bbl_alloc ) 85 85 ! 86 86 IF( lk_mpp ) CALL mpp_sum ( tra_bbl_alloc ) … … 172 172 USE wrk_nemo, ONLY: zptb => wrk_2d_1 173 173 ! 174 INTEGER , INTENT(in ) :: kjpt 175 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb ! before and now tracer fields176 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend174 INTEGER , INTENT(in ) :: kjpt ! number of tracers 175 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb ! before and now tracer fields 176 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend 177 177 ! 178 178 INTEGER :: ji, jj, jn ! dummy loop indices … … 181 181 !!---------------------------------------------------------------------- 182 182 ! 183 IF( wrk_in_use(2,1) ) THEN183 IF( wrk_in_use(2,1) ) THEN 184 184 CALL ctl_stop('tra_bbl_dif: ERROR: requested workspace array unavailable') ; RETURN 185 185 ENDIF … … 218 218 END DO ! end tracer 219 219 ! ! =========== 220 IF( wrk_not_released(2,1) ) CALL ctl_stop('tra_bbl_dif: failed to release workspace array')220 IF( wrk_not_released(2,1) ) CALL ctl_stop('tra_bbl_dif: failed to release workspace array') 221 221 ! 222 222 END SUBROUTINE tra_bbl_dif … … 238 238 !! Campin, J.-M., and H. Goosse, 1999, Tellus, 412-430. 239 239 !!---------------------------------------------------------------------- 240 INTEGER , INTENT(in ) :: kjpt 241 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb ! before and now tracer fields242 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend243 ! !240 INTEGER , INTENT(in ) :: kjpt ! number of tracers 241 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb ! before and now tracer fields 242 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend 243 ! 244 244 INTEGER :: ji, jj, jk, jn ! dummy loop indices 245 245 INTEGER :: iis , iid , ijs , ijd ! local integers … … 385 385 !!---------------------------------------------------------------------- 386 386 387 IF( wrk_in_use(2, 1,2,3,4,5) ) THEN387 IF( wrk_in_use(2, 1,2,3,4,5) ) THEN 388 388 CALL ctl_stop('bbl: requested workspace arrays unavailable') ; RETURN 389 389 ENDIF … … 525 525 ENDIF 526 526 ! 527 IF( wrk_not_released(2, 1,2,3,4,5) ) CALL ctl_stop('bbl: failed to release workspace arrays')527 IF( wrk_not_released(2, 1,2,3,4,5) ) CALL ctl_stop('bbl: failed to release workspace arrays') 528 528 ! 529 529 END SUBROUTINE bbl … … 547 547 !!---------------------------------------------------------------------- 548 548 549 IF( wrk_in_use(2,1) ) THEN549 IF( wrk_in_use(2,1) ) THEN 550 550 CALL ctl_stop('tra_bbl_init: requested workspace array unavailable') ; RETURN 551 551 ENDIF … … 635 635 ENDIF 636 636 ! 637 IF(wrk_not_released(2,1))THEN 638 CALL ctl_stop('tra_bbl_init: ERROR: failed to release workspace array') 639 END IF 637 IF( wrk_not_released(2,1) ) CALL ctl_stop('tra_bbl_init: failed to release workspace array') 640 638 ! 641 639 END SUBROUTINE tra_bbl_init
Note: See TracChangeset
for help on using the changeset viewer.