Changeset 4235 for branches/2013
- Timestamp:
- 2013-11-18T14:40:18+01:00 (10 years ago)
- 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 24 24 LOGICAL , PUBLIC, PARAMETER :: lk_c1d = .TRUE. ! 1D config. flag 25 25 26 REAL(wp), PUBLIC :: rn_lat = 50! Column latitude27 REAL(wp), PUBLIC :: rn_lon = -145! Column longitude26 REAL(wp), PUBLIC :: rn_lat1d = 50._wp ! Column latitude 27 REAL(wp), PUBLIC :: rn_lon1d = -145._wp ! Column longitude 28 28 29 29 !!---------------------------------------------------------------------- … … 42 42 !! ** Method : Read namelist namc1d 43 43 !!---------------------------------------------------------------------- 44 NAMELIST/namc1d/ rn_lat , rn_lon44 NAMELIST/namc1d/ rn_lat1d, rn_lon1d 45 45 !!---------------------------------------------------------------------- 46 46 ! … … 53 53 WRITE(numout,*) '~~~~~~~~' 54 54 WRITE(numout,*) ' Namelist namc1d : set options for the C1D model' 55 WRITE(numout,*) ' column latitude rn_lat = ', rn_lat56 WRITE(numout,*) ' column longitude rn_lon = ', rn_lon55 WRITE(numout,*) ' column latitude rn_lat1d = ', rn_lat1d 56 WRITE(numout,*) ' column longitude rn_lon1d = ', rn_lon1d 57 57 ENDIF 58 58 ! … … 64 64 !! Dummy module : No use of 1D configuration 65 65 !!---------------------------------------------------------------------- 66 USE par_kind ! kind parameters 67 66 68 LOGICAL, PUBLIC, PARAMETER :: lk_c1d = .FALSE. !: 1D config. flag de-activated 67 REAL :: rn_lat, rn_lon69 REAL(wp) :: rn_lat1d, rn_lon1d 68 70 CONTAINS 69 71 -
branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90
r4229 r4235 83 83 84 84 ! ! 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 ) 86 86 ! 87 87 ! ! ============== !
Note: See TracChangeset
for help on using the changeset viewer.