- Timestamp:
- 2018-11-16T16:13:30+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/TOP/PISCES/trcice_pisces.F90
- Property svn:keywords set to Id
r9950 r10323 23 23 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 24 24 !! $Id$ 25 !! Software governed by the CeCILL licen ce (./LICENSE)25 !! Software governed by the CeCILL license (see ./LICENSE) 26 26 !!---------------------------------------------------------------------- 27 27 CONTAINS … … 273 273 WHERE( gphit(:,:) < 0._wp ) ; trc_o(:,:,jn) = zpisc(jn,3) ; END WHERE ! Antarctic 274 274 ENDIF 275 IF( cn_cfg == "orca" ) THEN ! Baltic Sea particular case for ORCA configurations275 IF( cn_cfg == "orca" .OR. cn_cfg == "ORCA" ) THEN ! Baltic Sea particular case for ORCA configurations 276 276 WHERE( 14._wp <= glamt(:,:) .AND. glamt(:,:) <= 32._wp .AND. & 277 277 54._wp <= gphit(:,:) .AND. gphit(:,:) <= 66._wp ) … … 312 312 313 313 !-- Baltic 314 IF( cn_cfg == "orca" ) THEN ! Baltic treated seperately for ORCA configs314 IF( cn_cfg == "orca" .OR. cn_cfg == "ORCA" ) THEN 315 315 IF ( trc_ice_ratio(jn) >= - 1._wp ) THEN ! no prescribed conc. ; typically everything but iron) 316 316 WHERE( 14._wp <= glamt(:,:) .AND. glamt(:,:) <= 32._wp .AND. &
Note: See TracChangeset
for help on using the changeset viewer.