Changeset 1106


Ignore:
Timestamp:
2008-06-10T18:24:12+02:00 (12 years ago)
Author:
rblod
Message:

Correct diawri_dimg according to the new sbc, see ticket #159

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

    r1057 r1106  
    4545    !!  level 3:  qsr + qns                total heat flux (W/m2) 
    4646    !!  level 4:  emp (:,:)               E-P flux (mm/day) 
    47     !!  level 5:  tb  (:,:,1)-sst          model SST -forcing sst (degree C) 
     47    !!  level 5:  tb  (:,:,1)-sst          model SST -forcing sst (degree C) ! deprecated 
    4848    !!  level 6:  bsfb(:,:)         streamfunction (m**3/s) 
    4949    !!  level 7:  qsr (:,:)         solar flux (W/m2) 
     
    5353    !!  level 11: hmlp(:,:)                mixed layer depth 
    5454    !!  level 12: fr_i(:,:)                ice fraction (between 0 and 1) 
    55     !!  level 13: sst(:,:)                 the observed SST we relax to. 
     55    !!  level 13: sst(:,:)                 the observed SST we relax to. ! deprecated 
    5656    !!  level 14: qct(:,:)                 equivalent flux due to treshold SST 
    5757    !!  level 15: fbt(:,:)                 feedback term . 
     
    170170       fsel(:,:,3 ) = fsel(:,:,3 ) + qsr (:,:) + qns  (:,:)  
    171171       fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:) 
    172        fsel(:,:,5 ) = fsel(:,:,5 ) + tb  (:,:,1) - sf_sst(1)%fnow(:,:) 
     172       !        fsel(:,:,5 ) = fsel(:,:,5 ) + tb  (:,:,1)  !RB not used 
    173173#if ! defined key_dynspg_rl 
    174174       fsel(:,:,6 ) = fsel(:,:,6 ) + sshn(:,:)    ! SSH 
     
    182182       fsel(:,:,11) = fsel(:,:,11) + hmlp(:,:) 
    183183       fsel(:,:,12) = fsel(:,:,12) + fr_i(:,:) 
    184        fsel(:,:,13) = fsel(:,:,13) + sf_sst(1)%fnow(:,:) 
     184       !        fsel(:,:,13) = fsel(:,:,13)   !RB not used 
    185185       !        fsel(:,:,14) = fsel(:,:,14) + qct(:,:) 
    186186       !        fsel(:,:,15) = fsel(:,:,15) + fbt(:,:) 
     
    251251          fsel(:,:,3 ) = (qsr (:,:) + qns (:,:)) * tmask(:,:,1) 
    252252          fsel(:,:,4 ) = emp (:,:) * tmask(:,:,1) 
    253           fsel(:,:,5 ) = (tb  (:,:,1) - sf_sst(1)%fnow(:,:) ) *tmask(:,:,1) 
     253          !         fsel(:,:,5 ) = (tb  (:,:,1) - sf_sst(1)%fnow(:,:) ) *tmask(:,:,1) !RB not used 
    254254 
    255255#if ! defined key_dynspg_rl 
     
    264264          fsel(:,:,11) = hmlp(:,:) * tmask(:,:,1) 
    265265          fsel(:,:,12) = fr_i(:,:) * tmask(:,:,1) 
    266           fsel(:,:,13) = sf_sst(1)%fnow(:,:) 
     266          !         fsel(:,:,13) = sf_sst(1)%fnow(:,:) !RB not used 
    267267          !         fsel(:,:,14) =  qct(:,:) 
    268268          !         fsel(:,:,15) =  fbt(:,:) 
  • trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

    r1057 r1106  
    3030   REAL(wp), ALLOCATABLE, DIMENSION(:)   ::   buffer   ! Temporary buffer for exchange 
    3131 
    32    TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_sst   ! structure of input SST (file informations, fields read) 
    33    TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) ::   sf_sss   ! structure of input SSS (file informations, fields read) 
     32   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_sst   ! structure of input SST (file informations, fields read) 
     33   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_sss   ! structure of input SSS (file informations, fields read) 
    3434 
    3535   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   erp       !: evaporation damping                          [kg/m2/s] 
Note: See TracChangeset for help on using the changeset viewer.