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 6723 for branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90 – NEMO

Ignore:
Timestamp:
2016-06-19T11:36:47+02:00 (8 years ago)
Author:
gm
Message:

#1751 - branch SIMPLIF_6_aerobulk: add aerobulk package including NCAR, COARE and ECMWF bulk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r6140 r6723  
    924924         WRITE(numout,*) TRIM( cdcaller )//' : '//TRIM( cdtitle ) 
    925925         WRITE(numout,*) (/ ('~', jf = 1, LEN_TRIM( cdcaller ) ) /) 
    926          WRITE(numout,*) '          '//TRIM( cdnam )//' Namelist' 
    927          WRITE(numout,*) '          list of files and frequency (>0: in hours ; <0 in months)' 
     926         WRITE(numout,*) '   Namelist '//TRIM( cdnam ) 
     927         WRITE(numout,*) '      list of files and frequency (>0: in hours ; <0 in months)' 
    928928         DO jf = 1, SIZE(sdf) 
    929             WRITE(numout,*) '               root filename: '  , TRIM( sdf(jf)%clrootname ),   & 
    930                &                          ' variable name: '  , TRIM( sdf(jf)%clvar      ) 
    931             WRITE(numout,*) '               frequency: '      ,       sdf(jf)%nfreqh      ,   & 
    932                &                          ' time interp: '    ,       sdf(jf)%ln_tint     ,   & 
    933                &                          ' climatology: '    ,       sdf(jf)%ln_clim     ,   & 
    934                &                          ' weights    : '    , TRIM( sdf(jf)%wgtname    ),   & 
    935                &                          ' pairing    : '    , TRIM( sdf(jf)%vcomp      ),   & 
    936                &                          ' data type: '      ,       sdf(jf)%cltype      ,   & 
    937                &                          ' land/sea mask:'   , TRIM( sdf(jf)%lsmname    ) 
     929            WRITE(numout,*) '      root filename: '  , TRIM( sdf(jf)%clrootname ), '   variable name: ', TRIM( sdf(jf)%clvar) 
     930            WRITE(numout,*) '         frequency: '      ,       sdf(jf)%nfreqh      ,   & 
     931               &                  '   time interp: '    ,       sdf(jf)%ln_tint     ,   & 
     932               &                  '   climatology: '    ,       sdf(jf)%ln_clim 
     933            WRITE(numout,*) '         weights: '        , TRIM( sdf(jf)%wgtname    ),   & 
     934               &                  '   pairing: '        , TRIM( sdf(jf)%vcomp      ),   & 
     935               &                  '   data type: '      ,       sdf(jf)%cltype      ,   & 
     936               &                  '   land/sea mask:'   , TRIM( sdf(jf)%lsmname    ) 
    938937            call flush(numout) 
    939938         END DO 
Note: See TracChangeset for help on using the changeset viewer.