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 1133 for trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90 – NEMO

Ignore:
Timestamp:
2008-06-24T17:41:07+02:00 (16 years ago)
Author:
smasson
Message:

new sbc namelist format, see ticket:1

File:
1 edited

Legend:

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

    r1037 r1133  
    107107      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    108108      !! 
    109       INTEGER  ::   jf       ! dummy indices 
    110109      INTEGER  ::   ierror   ! return error code 
    111110      !! 
     
    125124 
    126125         ! (NB: frequency positive => hours, negative => months) 
    127          !            !    file     ! frequency !  variable  ! time intep !  clim  ! starting ! 
    128          !            !    name     !  (hours)  !   name     !   (T/F)    !  (0/1) !  record  ! 
    129          sn_wndi = FLD_N( 'uwnd10m' ,    24.    ,  'u_10'    ,  .FALSE.   ,    0   ,     0    )  
    130          sn_wndj = FLD_N( 'vwnd10m' ,    24.    ,  'v_10'    ,  .FALSE.   ,    0   ,     0    )  
    131          sn_qsr  = FLD_N( 'qsw'     ,    24.    ,  'qsw'     ,  .FALSE.   ,    0   ,     0    )  
    132          sn_qlw  = FLD_N( 'qlw'     ,    24.    ,  'qlw'     ,  .FALSE.   ,    0   ,     0    )  
    133          sn_tair = FLD_N( 'tair10m' ,    24.    ,  't_10'    ,  .FALSE.   ,    0   ,     0    )  
    134          sn_humi = FLD_N( 'humi10m' ,    24.    ,  'q_10'    ,  .FALSE.   ,    0   ,     0    )  
    135          sn_prec = FLD_N( 'precip'  ,   -12.    ,  'precip'  ,  .TRUE.    ,    0   ,     0    )  
    136          sn_snow = FLD_N( 'snow'    ,   -12.    ,  'snow'    ,  .TRUE.    ,    0   ,     0    )  
     126         !            !    file     ! frequency !  variable  ! time intep !  clim   ! 'yearly' or ! 
     127         !            !    name     !  (hours)  !   name     !   (T/F)    !  (T/F)  !  'monthly'  ! 
     128         sn_wndi = FLD_N( 'uwnd10m' ,    24.    ,  'u_10'    ,  .false.   , .false. ,   'yearly'  )  
     129         sn_wndj = FLD_N( 'vwnd10m' ,    24.    ,  'v_10'    ,  .false.   , .false. ,   'yearly'  )  
     130         sn_qsr  = FLD_N( 'qsw'     ,    24.    ,  'qsw'     ,  .false.   , .false. ,   'yearly'  )  
     131         sn_qlw  = FLD_N( 'qlw'     ,    24.    ,  'qlw'     ,  .false.   , .false. ,   'yearly'  )  
     132         sn_tair = FLD_N( 'tair10m' ,    24.    ,  't_10'    ,  .false.   , .false. ,   'yearly'  )  
     133         sn_humi = FLD_N( 'humi10m' ,    24.    ,  'q_10'    ,  .false.   , .false. ,   'yearly'  )  
     134         sn_prec = FLD_N( 'precip'  ,    -1.    ,  'precip'  ,  .true.    , .false. ,   'yearly'  )  
     135         sn_snow = FLD_N( 'snow'    ,    -1.    ,  'snow'    ,  .true.    , .false. ,   'yearly'  )  
    137136 
    138137         REWIND( numnam )                    ! ... read in namlist namsbc_core 
     
    151150         ENDIF 
    152151 
    153          DO jf = 1, jpfld 
    154             WRITE(sf(jf)%clrootname,'(a,a)' )   TRIM( cn_dir ), TRIM( slf_i(jf)%clname ) 
    155             sf(jf)%freqh   = slf_i(jf)%freqh 
    156             sf(jf)%clvar   = slf_i(jf)%clvar 
    157             sf(jf)%ln_tint = slf_i(jf)%ln_tint 
    158             sf(jf)%nclim   = slf_i(jf)%nclim 
    159             sf(jf)%nstrec  = slf_i(jf)%nstrec 
    160          END DO 
    161  
    162          IF(lwp) THEN      ! control print 
    163             WRITE(numout,*)             
    164             WRITE(numout,*) 'sbc_blk_core : flux formulattion for ocean surface boundary condition' 
    165             WRITE(numout,*) '~~~~~~~~~~~~ ' 
    166             WRITE(numout,*) '          namsbc_core Namelist' 
    167             WRITE(numout,*) '          ln_2m        = ', ln_2m 
    168             WRITE(numout,*) '          alpha_precip = ', alpha_precip 
    169             WRITE(numout,*) '          list of files and frequency (>0: in hours ; <0 in months)' 
    170             DO jf = 1, jpfld 
    171                 WRITE(numout,*) '               file root name: ' , TRIM( sf(jf)%clrootname ),   & 
    172                    &                          ' variable name: '  , TRIM( sf(jf)%clvar      ) 
    173                 WRITE(numout,*) '               frequency: '      ,       sf(jf)%freqh       ,   & 
    174                    &                          ' time interp: '    ,       sf(jf)%ln_tint     ,   & 
    175                    &                          ' climatology: '    ,       sf(jf)%nclim       ,   & 
    176                    &                          ' starting record: ',       sf(jf)%nstrec 
    177             END DO 
    178             IF( ln_2m )   THEN 
    179                WRITE(numout,*) '          Calling TURB_CORE_2Z for bulk transfert coefficients' 
    180             ELSE 
    181                WRITE(numout,*) '          Calling TURB_CORE_1Z for bulk transfert coefficients' 
    182             ENDIF 
    183             WRITE(numout,*)             
    184             ! 
    185          ENDIF 
     152         ! fill sf with slf_i and control print 
     153         CALL fld_fill( sf, slf_i, cn_dir, 'sbc_blk_core', 'flux formulattion for ocean surface boundary condition', 'namsbc_core' ) 
    186154         ! 
    187155      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.