New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1856 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcice_if.F90 – NEMO

Ignore:
Timestamp:
2010-05-03T12:32:10+02:00 (14 years ago)
Author:
smasson
Message:

fldread_3D: small bugfix and style

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r1806 r1856  
    8181            CALL ctl_stop( 'sbc_ice_if: unable to allocate sf_ice structure' )   ;   RETURN 
    8282         ENDIF 
    83          ALLOCATE( sf_ice(1)%fnow(jpi,jpj,1) ) 
     83         ALLOCATE( sf_ice(1)%fnow(jpi,jpj,1  ) ) 
    8484         ALLOCATE( sf_ice(1)%fdta(jpi,jpj,1,2) ) 
    8585 
    … …  
    107107               ! 
    108108               zt_fzp  = fr_i(ji,jj)                        ! freezing point temperature 
    109                zfr_obs = sf_ice(1)%fnow(ji,jj,1)              ! observed ice cover 
     109               zfr_obs = sf_ice(1)%fnow(ji,jj,1)            ! observed ice cover 
    110110               !                                            ! ocean ice fraction (0/1) from the freezing point temperature 
    111111               IF( sst_m(ji,jj) <= zt_fzp ) THEN   ;   fr_i(ji,jj) = 1.e0 
Note: See TracChangeset for help on using the changeset viewer.