Changeset 9905 for NEMO/trunk/src/OCE/BDY/bdydta.F90
- Timestamp:
- 2018-07-09T15:39:26+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdydta.F90
r9810 r9905 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.