Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcopt.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcopt.F90
r2528 r2715 52 52 !! xze ??? 53 53 !!--------------------------------------------------------------------- 54 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 55 USE wrk_nemo, ONLY: zpar100 => wrk_2d_1, & ! irradiance at euphotic layer depth 56 zpar0m => wrk_2d_2 ! irradiance just below the surface 57 USE wrk_nemo, ONLY: zparr => wrk_3d_2, & ! red and green compound of par 58 zparg => wrk_3d_3 59 !! 54 60 INTEGER, INTENT( in ) :: kt ! index of the time stepping 55 61 !! … … 59 65 REAL(wp) :: zkr, zkg ! total absorption coefficient in red and green 60 66 REAL(wp) :: zcoef ! temporary scalar 61 REAL(wp), DIMENSION(jpi,jpj) :: zpar100 ! irradiance at euphotic layer depth62 REAL(wp), DIMENSION(jpi,jpj) :: zpar0m ! irradiance just below the surface63 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zparr, zparg ! red and green compound of par64 67 65 68 !!--------------------------------------------------------------------- 69 70 IF( ( wrk_in_use(2, 1,2)) .OR. ( wrk_in_use(3, 2,3)) )THEN 71 CALL ctl_stop('trc_opt : requested workspace arrays unavailable') ; RETURN 72 END IF 66 73 67 74 IF( kt == nit000 ) THEN … … 130 137 ENDIF 131 138 ! 139 IF( wrk_not_released(2, 1,2) .OR. wrk_not_released(3, 2,3) ) & 140 CALL ctl_stop('trc_opt : failed to release workspace arrays') 141 ! 132 142 END SUBROUTINE trc_opt 133 143
Note: See TracChangeset
for help on using the changeset viewer.