Changeset 9905


Ignore:
Timestamp:
2018-07-09T15:39:26+02:00 (2 years ago)
Author:
clem
Message:

correct BDY ice in case the model runs with only 1 ice category

Location:
NEMO/trunk/src/OCE/BDY
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/BDY/bdydta.F90

    r9810 r9905  
    351351               ENDIF 
    352352#if defined key_si3 
     353               ! convert N-cat fields (input) into jpl-cat (output) 
    353354               IF( cn_ice(jbdy) /= 'none' .AND. nn_ice_dta(jbdy) == 1 ) THEN 
    354355                  jfld_hti = jfld_htit(jbdy) 
    355356                  jfld_hts = jfld_htst(jbdy) 
    356357                  jfld_ai  = jfld_ait(jbdy) 
    357                   IF( nice_cat == 1 ) THEN ! case input cat = 1 
     358                  IF    ( jpl /= 1 .AND. nice_cat == 1 ) THEN                      ! case input cat = 1 
    358359                     CALL ice_var_itd ( bf(jfld_hti)%fnow(:,1,1), bf(jfld_hts)%fnow(:,1,1), bf(jfld_ai)%fnow(:,1,1), & 
    359360                        &               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 /=jpl 
     361                  ELSEIF( jpl /= 1 .AND. nice_cat /= 1 .AND. nice_cat /= jpl ) THEN ! case input cat /=1 and /=jpl 
    361362                     CALL ice_var_itd2( bf(jfld_hti)%fnow(:,1,:), bf(jfld_hts)%fnow(:,1,:), bf(jfld_ai)%fnow(:,1,:), & 
    362363                        &               dta_bdy(jbdy)%h_i     , dta_bdy(jbdy)%h_s     , dta_bdy(jbdy)%a_i    ) 
  • NEMO/trunk/src/OCE/BDY/bdyice.F90

    r9890 r9905  
    5858      !!---------------------------------------------------------------------- 
    5959      ! 
    60       IF( ln_timing )   CALL timing_start('bdy_ice') 
     60      IF( ln_timing )   CALL timing_start('bdy_ice_thd') 
    6161      ! 
    6262      CALL ice_var_glo2eqv 
     
    7979      ! 
    8080      IF( ln_icectl )   CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' ) 
    81       IF( ln_timing )   CALL timing_stop('bdy_ice') 
     81      IF( ln_timing )   CALL timing_stop('bdy_ice_thd') 
    8282      ! 
    8383   END SUBROUTINE bdy_ice 
     
    281281      REAL(wp) ::   zmsk1, zmsk2, zflag 
    282282      !!------------------------------------------------------------------------------ 
     283      IF( ln_timing )   CALL timing_start('bdy_ice_dyn') 
    283284      ! 
    284285      DO jbdy=1, nb_bdy 
     
    349350      END DO 
    350351      ! 
     352      IF( ln_timing )   CALL timing_stop('bdy_ice_dyn') 
     353      ! 
    351354    END SUBROUTINE bdy_ice_dyn 
    352355 
Note: See TracChangeset for help on using the changeset viewer.