Changeset 10345 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcice_pisces.F90
- Timestamp:
- 2018-11-21T11:25:53+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcice_pisces.F90
r10069 r10345 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.