Changeset 2090


Ignore:
Timestamp:
2010-09-14T18:19:35+02:00 (10 years ago)
Author:
smasson
Message:

minor bugfixes in the coupled interface, see ticket:719

Location:
trunk/NEMO/OPA_SRC/SBC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r1698 r2090  
    2727   USE mod_prism_proto              ! OASIS3 prism module 
    2828   USE mod_prism_def_partition_proto! OASIS3 prism module for partitioning 
    29    USE mod_prism_grids_writing      ! OASIS3 prism module for writing grid files 
    3029   USE mod_prism_put_proto          ! OASIS3 prism module for snding 
    3130   USE mod_prism_get_proto          ! OASIS3 prism module for receiving 
    32    USE mod_prism_grids_writing      ! OASIS3 prism module for writing grids 
    3331   USE par_oce                      ! ocean parameters 
    3432   USE dom_oce                      ! ocean space and time domain 
  • trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

    r2044 r2090  
    152152   INTEGER , DIMENSION(        jprcv) ::   nrcvinfo           ! OASIS info argument 
    153153 
     154#if ! defined key_lim2 && ! defined key_lim3 
     155   ! quick patch to be able to run the coupled model without sea-ice... 
     156   INTEGER, PARAMETER               ::   jpl = 1  
     157   REAL(wp), DIMENSION(jpi,jpj    ) ::   hicif, hsnif, u_ice, v_ice,fr1_i0,fr2_i0 
     158   REAL(wp), DIMENSION(jpi,jpj,jpl) ::   tn_ice, alb_ice 
     159   REAL(wp)                         ::  lfus 
     160#endif 
     161 
    154162   !! Substitution 
    155163#  include "vectopt_loop_substitute.h90" 
     
    253261 
    254262      ! default definitions of srcv 
    255       srcv(:)%laction = .FALSE.   ;   srcv(:)%clgrid = 'T'   ;   srcv(:)%nsgn = 1 
     263      srcv(:)%laction = .FALSE.   ;   srcv(:)%clgrid = 'T'   ;   srcv(:)%nsgn = 1. 
    256264 
    257265      !                                                      ! ------------------------- ! 
     
    438446       
    439447      ! default definitions of nsnd 
    440       ssnd(:)%laction = .FALSE.   ;   ssnd(:)%clgrid = 'T'   ;   ssnd(:)%nsgn = 1 
     448      ssnd(:)%laction = .FALSE.   ;   ssnd(:)%clgrid = 'T'   ;   ssnd(:)%nsgn = 1. 
    441449          
    442450      !                                                      ! ------------------------- ! 
     
    491499      ssnd(jps_ocz1)%clname = 'O_OCurz1'   ;   ssnd(jps_ivz1)%clname = 'O_IVelz1' 
    492500      ! 
    493       ssnd(jps_ocx1:jps_ivz1)%nsgn = -1    ! vectors: change of the sign at the north fold 
     501      ssnd(jps_ocx1:jps_ivz1)%nsgn = -1.   ! vectors: change of the sign at the north fold 
    494502 
    495503      IF( cn_snd_crt(4) /= 'T' )   CALL ctl_stop( 'cn_snd_crt(4) must be equal to T' ) 
     
    713721         !                                                       ! non solar heat flux over the ocean (qns) 
    714722         IF( srcv(jpr_qnsoce)%laction )   qns(:,:) = frcv(:,:,jpr_qnsoce) 
    715          IF( srcv(jpr_qnsmix)%laction )   qns(:,:) = frcv(:,:,jpr_qnsmix)         
    716          qns(:,:) = qns(:,:) - frcv(:,:,jpr_snow) * lfus              ! add the latent heat of solid precip. melting  
     723         IF( srcv(jpr_qnsmix)%laction )   qns(:,:) = frcv(:,:,jpr_qnsmix)   
     724         ! add the latent heat of solid precip. melting 
     725         IF( srcv(jpr_snow  )%laction )   qns(:,:) = qns(:,:) - frcv(:,:,jpr_snow) * lfus               
    717726 
    718727         !                                                       ! solar flux over the ocean          (qsr) 
  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r1715 r2090  
    180180         ENDIF 
    181181#if defined key_coupled 
    182          IF( ksbc == 5    )             CALL sbc_cpl_ice_flx( frld   ,                               & 
     182         IF( ksbc == 5    )             CALL sbc_cpl_ice_flx( reshape( frld, (/jpi,jpj,1/) ),        & 
    183183      &                                                       qns_tot, qns_ice, qsr_tot , qsr_ice,   & 
    184184      &                                                       emp_tot, emp_ice, dqns_ice, sprecip,   & 
Note: See TracChangeset for help on using the changeset viewer.