Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
r2528 r2715 16 16 USE trc 17 17 USE sms_pisces 18 USE lbclnk19 USE lib_mpp20 18 21 19 USE p4zint ! … … 65 63 !! - ... 66 64 !!--------------------------------------------------------------------- 65 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 66 USE wrk_nemo, ONLY: ztrpis => wrk_3d_1 ! used for pisces sms trends 67 ! 67 68 INTEGER, INTENT( in ) :: kt ! ocean time-step index 68 69 !! 69 70 INTEGER :: jnt, jn 70 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrpis ! used for pisces sms trends71 71 CHARACTER (len=25) :: charout 72 72 !!--------------------------------------------------------------------- 73 73 74 74 IF( kt == nit000 ) CALL trc_sms_pisces_init ! Initialization (first time-step only) 75 76 IF( wrk_in_use(3,1) ) THEN 77 CALL ctl_stop('trc_sms_pisces : requested workspace array unavailable.') ; RETURN 78 ENDIF 75 79 76 80 IF( ndayflxtr /= nday_year ) THEN ! New days … … 111 115 CALL trd_mod_trc( ztrpis, jn, jptra_trd_sms, kt ) ! save trends 112 116 END DO 117 DEALLOCATE( ztrpis ) 113 118 END IF 114 119 … … 122 127 ! 123 128 ENDIF 129 130 IF( wrk_not_released(3,1) ) CALL ctl_stop('trc_sms_pisces : failed to release workspace array.') 124 131 125 132 END SUBROUTINE trc_sms_pisces
Note: See TracChangeset
for help on using the changeset viewer.