- Timestamp:
- 2018-11-07T18:25:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/BDY/bdydta.F90
r9810 r10288 60 60 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 61 61 !! $Id$ 62 !! Software governed by the CeCILL licen ce (./LICENSE)62 !! Software governed by the CeCILL license (see ./LICENSE) 63 63 !!---------------------------------------------------------------------- 64 64 CONTAINS … … 351 351 ENDIF 352 352 #if defined key_si3 353 ! convert N-cat fields (input) into jpl-cat (output) 353 354 IF( cn_ice(jbdy) /= 'none' .AND. nn_ice_dta(jbdy) == 1 ) THEN 354 355 jfld_hti = jfld_htit(jbdy) 355 356 jfld_hts = jfld_htst(jbdy) 356 357 jfld_ai = jfld_ait(jbdy) 357 IF ( nice_cat == 1 ) THEN! case input cat = 1358 IF ( jpl /= 1 .AND. nice_cat == 1 ) THEN ! case input cat = 1 358 359 CALL ice_var_itd ( bf(jfld_hti)%fnow(:,1,1), bf(jfld_hts)%fnow(:,1,1), bf(jfld_ai)%fnow(:,1,1), & 359 360 & dta_bdy(jbdy)%h_i , dta_bdy(jbdy)%h_s , dta_bdy(jbdy)%a_i ) 360 ELSEIF( nice_cat /= 1 .AND. nice_cat /= jpl ) THEN ! case input cat /=1 and /=jpl361 ELSEIF( jpl /= 1 .AND. nice_cat /= 1 .AND. nice_cat /= jpl ) THEN ! case input cat /=1 and /=jpl 361 362 CALL ice_var_itd2( bf(jfld_hti)%fnow(:,1,:), bf(jfld_hts)%fnow(:,1,:), bf(jfld_ai)%fnow(:,1,:), & 362 363 & dta_bdy(jbdy)%h_i , dta_bdy(jbdy)%h_s , dta_bdy(jbdy)%a_i )
Note: See TracChangeset
for help on using the changeset viewer.