Changeset 6041 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
- Timestamp:
- 2015-12-14T10:06:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
r5215 r6041 48 48 !!---------------------------------------------------------------------- 49 49 ! 50 51 50 REWIND( numnam_ref ) ! Namelist namc1d in reference namelist : Tracer advection scheme 52 51 READ ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901) … … 57 56 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp ) 58 57 IF(lwm) WRITE ( numond, namc1d ) 59 60 58 ! 61 59 IF(lwp) THEN ! Control print … … 69 67 ENDIF 70 68 ! 71 !72 69 END SUBROUTINE c1d_init 73 70 … … 77 74 !!---------------------------------------------------------------------- 78 75 USE par_kind ! kind parameters 79 80 76 LOGICAL, PUBLIC, PARAMETER :: lk_c1d = .FALSE. !: 1D config. flag de-activated 81 77 REAL(wp) :: rn_lat1d, rn_lon1d 82 78 LOGICAL , PUBLIC :: ln_c1d_locpt = .FALSE. 83 84 79 CONTAINS 85 86 80 SUBROUTINE c1d_init ! Dummy routine 87 81 END SUBROUTINE c1d_init 88 89 82 #endif 90 83
Note: See TracChangeset
for help on using the changeset viewer.