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 4235 for branches/2013 – NEMO

Changeset 4235 for branches/2013


Ignore:
Timestamp:
2013-11-18T14:40:18+01:00 (10 years ago)
Author:
cbricaud
Message:

bug correction in dev_MERCATOR_UKMO_2013_test to compile ORCA2_LIM, C1D and AMM12

Location:
branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90

    r4229 r4235  
    2424   LOGICAL , PUBLIC, PARAMETER ::  lk_c1d = .TRUE.   ! 1D config. flag 
    2525 
    26    REAL(wp), PUBLIC            ::  rn_lat = 50       ! Column latitude 
    27    REAL(wp), PUBLIC            ::  rn_lon = -145     ! Column longitude 
     26   REAL(wp), PUBLIC            ::  rn_lat1d = 50._wp     ! Column latitude 
     27   REAL(wp), PUBLIC            ::  rn_lon1d = -145._wp   ! Column longitude 
    2828 
    2929   !!---------------------------------------------------------------------- 
     
    4242      !! ** Method  :   Read namelist namc1d  
    4343      !!---------------------------------------------------------------------- 
    44       NAMELIST/namc1d/ rn_lat, rn_lon 
     44      NAMELIST/namc1d/ rn_lat1d, rn_lon1d 
    4545      !!---------------------------------------------------------------------- 
    4646      ! 
     
    5353         WRITE(numout,*) '~~~~~~~~' 
    5454         WRITE(numout,*) '   Namelist namc1d : set options for the C1D model' 
    55          WRITE(numout,*) '      column latitude                 rn_lat = ', rn_lat 
    56          WRITE(numout,*) '      column longitude                rn_lon = ', rn_lon 
     55         WRITE(numout,*) '      column latitude                 rn_lat1d = ', rn_lat1d 
     56         WRITE(numout,*) '      column longitude                rn_lon1d = ', rn_lon1d 
    5757      ENDIF 
    5858      ! 
     
    6464   !!   Dummy module :                           No use of 1D configuration 
    6565   !!---------------------------------------------------------------------- 
     66   USE par_kind         ! kind parameters 
     67 
    6668   LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .FALSE.   !: 1D config. flag de-activated 
    67    REAL                       ::   rn_lat, rn_lon 
     69   REAL(wp)                   ::   rn_lat1d, rn_lon1d 
    6870CONTAINS 
    6971 
  • branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

    r4229 r4235  
    8383 
    8484      !                              ! recalculate jpizoom/jpjzoom given lat/lon 
    85       IF( lk_c1d )  CALL dom_c1d( rn_lat, rn_lon ) 
     85      IF( lk_c1d )  CALL dom_c1d( rn_lat1d, rn_lon1d ) 
    8686      ! 
    8787      !                        ! ============== ! 
Note: See TracChangeset for help on using the changeset viewer.