Changeset 15 for trunk/NEMO/OPA_SRC/phycst.F90

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/phycst.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/phycst.F90

@@ -15 +15 @@
 
    !! * Shared module variables
-   INTEGER, PUBLIC, DIMENSION(12) ::   &
+   INTEGER, PUBLIC, DIMENSION(12) ::   &  !:
       nbiss = (/ 31, 29, 31, 30, 31, 30,      &  !: number of days per month
          &       31, 31, 30, 31, 30, 31 /) ,  &  !  (leap-year)
@@ -21 +21 @@
          &       31, 31, 30, 31, 30, 31 /)       !  (365 days a year)
    
-   REAL(wp), PUBLIC ::                        &
+   REAL(wp), PUBLIC ::                        &  !:
       rpi = 3.141592653589793_wp           ,  &  !: pi
       rad = 3.141592653589793_wp / 180._wp ,  &  !: conversion from degre into radian
       rsmall = 0.5 * EPSILON( 1. )               !: smallest real computer value
    
-   REAL(wp), PUBLIC ::          &
+   REAL(wp), PUBLIC ::          & !:
       rday = 24.*60.*60.  ,     & !: day (s)
       rsiyea              ,     & !: sideral year (s)
@@ -41 +41 @@
       omega               ,    &  !: earth rotation parameter
       ra    = 6371229._wp ,    &  !: earth radius (meter)
-      g     = 9.80665_wp          !: gravity (m/s2)
-   
-   REAL(wp), PUBLIC ::         &
+      grav  = 9.80665_wp          !: gravity (m/s2)
+   
+   REAL(wp), PUBLIC ::         &  !:
       rtt      = 273.16_wp  ,  &  !: triple point of temperature (Kelvin)
       rt0      = 273.15_wp  ,  &  !: freezing point of water (Kelvin)
@@ -53 +53 @@
       ro0cpr                      !: = 1. / ( rau0 * rcp )
 
-   REAL(wp), PUBLIC ::            &
+   REAL(wp), PUBLIC ::            &  !:
       rcdsn   =   0.22_wp     ,   &  !: conductivity of the snow
       rcdic   =   2.034396_wp ,   &  !: conductivity of the ice
@@ -154 +154 @@
 
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) ' earth radius ra = ', ra, ' m'
-      IF(lwp) WRITE(numout,*) ' gravity      g  = ', g , ' m/s2'
+      IF(lwp) WRITE(numout,*) ' earth radius ra   = ', ra, ' m'
+      IF(lwp) WRITE(numout,*) ' gravity      grav = ', grav , ' m/s2'
 
       IF(lwp) WRITE(numout,*)