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 88 for trunk/NEMO/OPA_SRC/geo2ocean.F90 – NEMO

Ignore:
Timestamp:
2004-04-22T15:50:27+02:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/geo2ocean.F90

    r3 r88  
    233233         pte, ptn, ptv 
    234234      REAL(wp), PARAMETER :: rpi = 3.141592653E0 
    235       REAL(wp), PARAMETER :: rad = rpi / 180.0E0 
     235      REAL(wp), PARAMETER :: rad = rpi / 180.e0 
    236236 
    237237      !! * Local variables 
Note: See TracChangeset for help on using the changeset viewer.