Changeset 4084

Timestamp:

2013-10-21T14:14:40+02:00 (11 years ago)

Author:

andrewryan

Message:

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

File:

• branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/off_read.F90 (modified) (4 diffs)

branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/off_read.F90

@@ -25 +25 @@
    SUBROUTINE off_rea_dri(kfile)
       IMPLICIT NONE
+      !!------------------------------------------------------------------------
+      !!             *** off_rea_dri ***
+      !!
+      !! Purpose : To choose appropriate read method
+      !! Method  : 
+      !!
+      !! Author  : A. Ryan Oct 2013
+      !!
+      !!------------------------------------------------------------------------
       INTEGER, INTENT(IN) :: &
               & kfile         !: File number
@@ -60 +69 @@
    SUBROUTINE off_read_altbias(filename)
       IMPLICIT NONE
-      !------------------------------------------------------------------------
-      !             ** off_read_altbias **
-      !
-      ! Purpose : To read altimeter bias and set tn,sn to missing values
-      ! Method  : Use subdomain indices to create start and count matrices
-      !           for netcdf read.
-      !
-      ! Author  : Andrew Ryan Sept 2012
-      !
-      !------------------------------------------------------------------------
+      !!------------------------------------------------------------------------
+      !!                      *** off_read_altbias ***
+      !!
+      !! Purpose : To read altimeter bias and set tn,sn to missing values
+      !! Method  : Use subdomain indices to create start and count matrices
+      !!           for netcdf read.
+      !!
+      !! Author  : A. Ryan Sept 2012
+      !!------------------------------------------------------------------------
       CHARACTER(len=*), INTENT(IN) :: filename
       INTEGER                      :: ncid, &
@@ -136 +144 @@
    SUBROUTINE off_read_file(filename, ifcst)
       IMPLICIT NONE
-      !------------------------------------------------------------------------
-      !
-      !             ** off_read_file **
-      !
-      ! Purpose : To fill tn and sn with dailymean field from netcdf files
-      ! Method  : Use subdomain indices to create start and count matrices
-      !           for netcdf read.
-      !
-      ! Author  : Andrew Ryan Oct 2010
-      !
-      !------------------------------------------------------------------------
+      !!------------------------------------------------------------------------
+      !!             *** off_read_file ***
+      !!
+      !! Purpose : To fill tn and sn with dailymean field from netcdf files
+      !! Method  : Use subdomain indices to create start and count matrices
+      !!           for netcdf read.
+      !!
+      !! Author  : A. Ryan Oct 2010
+      !!------------------------------------------------------------------------
 
       INTEGER,          INTENT(IN) :: ifcst
@@ -267 +273 @@
       USE calendar
       IMPLICIT NONE
-      !!====================================================================
-      !!
-      !!          ** off_read_juld **
+      !!--------------------------------------------------------------------
+      !!                 *** off_read_juld ***
       !!
       !!   Purpose : To read model julian day information from file
-      !!   Author  : Andrew Ryan Nov 2010
-      !!
-      !!====================================================================
+      !!   Author  : A. Ryan Nov 2010
+      !!--------------------------------------------------------------------
 
       !! Routine arguments