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/sbcssr.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/sbcssr.F90

    r1106 r1133  
    8686         cn_dir = './'       ! directory in which the model is executed 
    8787         ! ... default values (NB: frequency positive => hours, negative => months) 
    88          !            !   file    ! frequency !  variable  ! time intep !  clim  ! starting ! 
    89          !            !   name    !  (hours)  !   name     !   (T/F)    !  (0/1) !  record  ! 
    90          sn_sst = FLD_N( 'sst'     ,    24.    ,  'sst'     ,  .FALSE.   ,    0   ,     0    ) 
    91          sn_sss = FLD_N( 'sss'     ,   -12.    ,  'sss'     ,  .TRUE.    ,    0   ,     0    ) 
     88         !            !   file    ! frequency !  variable  ! time intep !  clim   ! 'yearly' or ! 
     89         !            !   name    !  (hours)  !   name     !   (T/F)    !  (T/F)  !  'monthly'  ! 
     90         sn_sst = FLD_N( 'sst'    ,    24.    ,  'sst'     ,  .false.   , .false. ,   'yearly'  ) 
     91         sn_sss = FLD_N( 'sss'    ,    -1.    ,  'sss'     ,  .true.    , .false. ,   'yearly'  ) 
    9292 
    9393         REWIND ( numnam )         ! ... read in namlist namflx 
    … …  
    111111               CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sst structure' )   ;   RETURN 
    112112            ENDIF 
    113             ! namelist informations stored in sf_sst structures 
    114             WRITE( sf_sst(1)%clrootname, '(a,a)' )   TRIM( cn_dir ), TRIM( sn_sst%clname ) 
    115             sf_sst(1)%freqh   = sn_sst%freqh 
    116             sf_sst(1)%clvar   = sn_sst%clvar  
    117             sf_sst(1)%ln_tint = sn_sst%ln_tint 
    118             sf_sst(1)%nclim   = sn_sst%nclim   
    119             sf_sst(1)%nstrec  = sn_sst%nstrec   
    120             IF(lwp) THEN             ! control print 
    121                WRITE(numout,*) '   SST restoring term toward SST data in the following file: ' 
    122                WRITE(numout,*) '               root filename: '  , trim( sf_sst(1)%clrootname ),   & 
    123                   &                          ' variable name: '  , trim( sf_sst(1)%clvar      ) 
    124                WRITE(numout,*) '               frequency: '      ,       sf_sst(1)%freqh       ,   & 
    125                   &                          ' time interp: '    ,       sf_sst(1)%ln_tint     ,   & 
    126                   &                          ' climatology: '    ,       sf_sst(1)%nclim       ,   & 
    127                   &                          ' starting record: ',       sf_sst(1)%nstrec 
    128             ENDIF 
     113            ! fill sf_sst with sn_sst and control print 
     114            CALL fld_fill( sf_sst, (/ sn_sst /), cn_dir, 'sbc_ssr', 'SST restoring term toward SST data', 'namsbc_ssr' ) 
     115 
    129116         ENDIF 
    130117         ! 
    … …  
    135122               CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sss structure' )   ;   RETURN 
    136123            ENDIF 
    137             ! namelist informations stored in sf_sss structures 
    138             WRITE( sf_sss(1)%clrootname, '(a,a)' )   TRIM( cn_dir ), TRIM( sn_sss%clname ) 
    139             sf_sss(1)%freqh   = sn_sss%freqh 
    140             sf_sss(1)%clvar   = sn_sss%clvar 
    141             sf_sss(1)%ln_tint = sn_sss%ln_tint 
    142             sf_sss(1)%nclim   = sn_sss%nclim 
    143             sf_sss(1)%nstrec  = sn_sss%nstrec 
    144             IF(lwp) THEN             ! control print 
    145                WRITE(numout,*) '   SSS dampming  term toward SSS data in the following file: '  
    146                WRITE(numout,*) '               root filename: '  , trim( sf_sss(1)%clrootname ),   & 
    147                   &                          ' variable name: '  , trim( sf_sss(1)%clvar      ) 
    148                WRITE(numout,*) '               frequency: '      ,       sf_sss(1)%freqh       ,   & 
    149                   &                          ' time interp: '    ,       sf_sss(1)%ln_tint     ,   & 
    150                   &                          ' climatology: '    ,       sf_sss(1)%nclim       ,   & 
    151                   &                          ' starting record: ',       sf_sss(1)%nstrec 
    152             ENDIF 
     124            ! fill sf_sss with sn_sss and control print 
     125            CALL fld_fill( sf_sss, (/ sn_sss /), cn_dir, 'sbc_ssr', 'SSS restoring term toward SSS data', 'namsbc_ssr' ) 
     126 
    153127         ENDIF 
    154128         ! 
Note: See TracChangeset for help on using the changeset viewer.