Changeset 41 for trunk


Ignore:
Timestamp:
08/29/12 16:28:41 (12 years ago)
Author:
smasson
Message:

sbcblk_core: no need of snow if nn_ice=0

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r7 r41  
    171171         lhftau = ln_taudif                        ! do we use HF tau information? 
    172172         jfld = jpfld - COUNT( (/.NOT. lhftau/) ) 
     173 
     174         ! do we use snow information? 
     175         jfld = jfld - COUNT( (/ nn_ice == 0 /) ) 
     176 
    173177         ! 
    174178         ALLOCATE( sf(jfld), STAT=ierror )         ! set sf structure 
Note: See TracChangeset for help on using the changeset viewer.