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 4084 – NEMO

Changeset 4084


Ignore:
Timestamp:
2013-10-21T14:14:40+02:00 (9 years ago)
Author:
andrewryan
Message:

Some style changes and additional header included in off_read.F90 to be consistent

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/off_read.F90

    r4048 r4084  
    2525   SUBROUTINE off_rea_dri(kfile) 
    2626      IMPLICIT NONE 
     27      !!------------------------------------------------------------------------ 
     28      !!             *** off_rea_dri *** 
     29      !! 
     30      !! Purpose : To choose appropriate read method 
     31      !! Method  :  
     32      !! 
     33      !! Author  : A. Ryan Oct 2013 
     34      !! 
     35      !!------------------------------------------------------------------------ 
    2736      INTEGER, INTENT(IN) :: & 
    2837              & kfile         !: File number 
     
    6069   SUBROUTINE off_read_altbias(filename) 
    6170      IMPLICIT NONE 
    62       !------------------------------------------------------------------------ 
    63       !             ** off_read_altbias ** 
    64       ! 
    65       ! Purpose : To read altimeter bias and set tn,sn to missing values 
    66       ! Method  : Use subdomain indices to create start and count matrices 
    67       !           for netcdf read. 
    68       ! 
    69       ! Author  : Andrew Ryan Sept 2012 
    70       ! 
    71       !------------------------------------------------------------------------ 
     71      !!------------------------------------------------------------------------ 
     72      !!                      *** off_read_altbias *** 
     73      !! 
     74      !! Purpose : To read altimeter bias and set tn,sn to missing values 
     75      !! Method  : Use subdomain indices to create start and count matrices 
     76      !!           for netcdf read. 
     77      !! 
     78      !! Author  : A. Ryan Sept 2012 
     79      !!------------------------------------------------------------------------ 
    7280      CHARACTER(len=*), INTENT(IN) :: filename 
    7381      INTEGER                      :: ncid, & 
     
    136144   SUBROUTINE off_read_file(filename, ifcst) 
    137145      IMPLICIT NONE 
    138       !------------------------------------------------------------------------ 
    139       ! 
    140       !             ** off_read_file ** 
    141       ! 
    142       ! Purpose : To fill tn and sn with dailymean field from netcdf files 
    143       ! Method  : Use subdomain indices to create start and count matrices 
    144       !           for netcdf read. 
    145       ! 
    146       ! Author  : Andrew Ryan Oct 2010 
    147       ! 
    148       !------------------------------------------------------------------------ 
     146      !!------------------------------------------------------------------------ 
     147      !!             *** off_read_file *** 
     148      !! 
     149      !! Purpose : To fill tn and sn with dailymean field from netcdf files 
     150      !! Method  : Use subdomain indices to create start and count matrices 
     151      !!           for netcdf read. 
     152      !! 
     153      !! Author  : A. Ryan Oct 2010 
     154      !!------------------------------------------------------------------------ 
    149155 
    150156      INTEGER,          INTENT(IN) :: ifcst 
     
    267273      USE calendar 
    268274      IMPLICIT NONE 
    269       !!==================================================================== 
    270       !! 
    271       !!          ** off_read_juld ** 
     275      !!-------------------------------------------------------------------- 
     276      !!                 *** off_read_juld *** 
    272277      !! 
    273278      !!   Purpose : To read model julian day information from file 
    274       !!   Author  : Andrew Ryan Nov 2010 
    275       !! 
    276       !!==================================================================== 
     279      !!   Author  : A. Ryan Nov 2010 
     280      !!-------------------------------------------------------------------- 
    277281 
    278282      !! Routine arguments 
Note: See TracChangeset for help on using the changeset viewer.