- Timestamp:
- 2018-06-19T17:09:31+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdydta.F90
r9657 r9810 54 54 INTEGER :: nice_cat ! number of categories in the input file 55 55 INTEGER :: jfld_hti, jfld_hts, jfld_ai ! indices of ice thickness, snow thickness and concentration in bf structure 56 INTEGER, DIMENSION(jp_bdy) :: jfld_htit, jfld_htst, jfld_ait 56 57 #endif 57 58 … … 351 352 #if defined key_si3 352 353 IF( cn_ice(jbdy) /= 'none' .AND. nn_ice_dta(jbdy) == 1 ) THEN 354 jfld_hti = jfld_htit(jbdy) 355 jfld_hts = jfld_htst(jbdy) 356 jfld_ai = jfld_ait(jbdy) 353 357 IF( nice_cat == 1 ) THEN ! case input cat = 1 354 358 CALL ice_var_itd ( bf(jfld_hti)%fnow(:,1,1), bf(jfld_hts)%fnow(:,1,1), bf(jfld_ai)%fnow(:,1,1), & … … 812 816 dta_bdy(jbdy)%h_s => bf(jfld)%fnow(:,1,:) 813 817 ELSE ! case input cat = 1 OR (/=1 and /=jpl) 814 jfld_ai = jfld + 1815 jfld_hti = jfld + 2816 jfld_hts = jfld + 3818 jfld_ait(jbdy) = jfld + 1 819 jfld_htit(jbdy) = jfld + 2 820 jfld_htst(jbdy) = jfld + 3 817 821 jfld = jfld + 3 818 822 ALLOCATE( dta_bdy(jbdy)%a_i(nblen(1),jpl) )
Note: See TracChangeset
for help on using the changeset viewer.