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 3189 – NEMO

Changeset 3189


Ignore:
Timestamp:
2011-11-29T14:37:29+01:00 (12 years ago)
Author:
charris
Message:

Fix to ensure rnf is initialised even when ln_emp_rnf=T. Also a modification to sbcice_cice.F90 to allow sea surface slopes to be passed to CICE.

Location:
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r3186 r3189  
    3737   USE ice_state, only: aice,aicen,uvel,vvel,vsnon,vicen 
    3838   USE ice_flux, only: strax,stray,strocnx,strocny,frain,fsnow,  & 
    39                 sst,sss,uocn,vocn,fsalt_gbm,fresh_gbm,           & 
    40                 fhocn_gbm,fswthru_gbm,frzmlt,                    & 
     39                sst,sss,uocn,vocn,ss_tltx,ss_tlty,fsalt_gbm,     & 
     40                fresh_gbm,fhocn_gbm,fswthru_gbm,frzmlt,          & 
    4141                flatn_f,fsurfn_f,fcondtopn_f,                    & 
    4242                uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl,   & 
    … …  
    375375     CALL nemo2cice(ztmp,vocn,'F', -1. ) 
    376376 
     377! x comp and y comp of sea surface slope (on F points) 
     378! T point to F point 
     379     DO jj=1,jpjm1 
     380        DO ji=1,jpim1 
     381           ztmp(ji,jj)=0.5 * (  (ssh_m(ji+1,jj  )-ssh_m(ji,jj  ))/e1u(ji,jj  )   & 
     382                              + (ssh_m(ji+1,jj+1)-ssh_m(ji,jj+1))/e1u(ji,jj+1) ) &  
     383                           *  fmask(ji,jj,1) 
     384        ENDDO 
     385     ENDDO 
     386     CALL nemo2cice(ztmp,ss_tltx,'F', -1. ) 
     387 
     388! T point to F point 
     389     DO jj=1,jpjm1 
     390        DO ji=1,jpim1 
     391           ztmp(ji,jj)=0.5 * (  (ssh_m(ji  ,jj+1)-ssh_m(ji  ,jj))/e2v(ji  ,jj)   & 
     392                              + (ssh_m(ji+1,jj+1)-ssh_m(ji+1,jj))/e2v(ji+1,jj) ) & 
     393                           *  fmask(ji,jj,1) 
     394        ENDDO 
     395     ENDDO 
     396     CALL nemo2cice(ztmp,ss_tlty,'F', -1. ) 
     397 
    377398      CALL wrk_dealloc( jpi,jpj, ztmp ) 
    378399      CALL wrk_dealloc( jpi,jpj,ncat, ztmpn ) 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r2784 r3189  
    376376      ENDIF 
    377377      ! 
     378      rnf(:,:) =  0._wp                         ! runoff initialisation 
    378379      rnf_tsc(:,:,:) = 0._wp                    ! runoffs temperature & salinty contents initilisation 
    379380      ! 
Note: See TracChangeset for help on using the changeset viewer.