Changeset 1856 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/DTA/dtatem.F90
- Timestamp:
- 2010-05-03T12:32:10+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1784_3DF/NEMO/OPA_SRC/DTA/dtatem.F90
r1806 r1856 73 73 74 74 !! * Local declarations 75 INTEGER :: ji, jj, jk, jl, jkk ! dummy loop indicies 76 INTEGER :: & 77 imois, iman, i15 , ik ! temporary integers 78 INTEGER :: ierror 75 INTEGER :: ji, jj, jk, jl, jkk ! dummy loop indicies 76 INTEGER :: imois, iman, i15 , ik ! temporary integers 77 INTEGER :: ierror 79 78 #if defined key_tradmp 80 INTEGER :: & 81 il0, il1, ii0, ii1, ij0, ij1 ! temporary integers 82 #endif 83 REAL(wp) :: zxy, zl 84 #if defined key_orca_lev10 85 !!!REAL(wp), DIMENSION(jpi,jpj,jpkdta,2) :: ztem 86 INTEGER :: ikr, ikw, ikt, jjk 87 REAL(wp) :: zfac 88 #endif 89 REAL(wp), DIMENSION(jpk) :: & 90 ztemdta ! auxiliary array for interpolation 91 CHARACTER(len=100) :: cn_dir ! Root directory for location of ssr files 92 TYPE(FLD_N) :: sn_tem 93 LOGICAL , SAVE :: linit_tem = .FALSE. 79 INTEGER :: il0, il1, ii0, ii1, ij0, ij1 ! temporary integers 80 #endif 81 REAL(wp):: zxy, zl 82 #if defined key_orca_lev10 83 INTEGER :: ikr, ikw, ikt, jjk 84 REAL(wp):: zfac 85 #endif 86 REAL(wp), DIMENSION(jpk) :: ztemdta ! auxiliary array for interpolation 87 CHARACTER(len=100) :: cn_dir ! Root directory for location of ssr files 88 TYPE(FLD_N) :: sn_tem 89 LOGICAL , SAVE :: linit_tem = .FALSE. 94 90 !!---------------------------------------------------------------------- 95 91 NAMELIST/namdta_tem/cn_dir,sn_tem … … 107 103 sn_tem = FLD_N( 'temperature', -1. , 'votemper', .false. , .true. , 'yearly' , '' , '' ) 108 104 109 REWIND( numnam ) ! ... read in namlist namdta_tem105 REWIND( numnam ) ! ... read in namlist namdta_tem 110 106 READ( numnam, namdta_tem ) 111 107 112 IF(lwp) THEN ! control print108 IF(lwp) THEN ! control print 113 109 WRITE(numout,*) 114 110 WRITE(numout,*) 'dta_tem : Temperature Climatology ' … … 121 117 122 118 #if defined key_orca_lev10 123 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpkdta ))119 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpkdta ) ) 124 120 ALLOCATE( sf_tem(1)%fdta(jpi,jpj,jpkdta,2) ) 125 121 #else 126 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpk ))122 ALLOCATE( sf_tem(1)%fnow(jpi,jpj,jpk ) ) 127 123 ALLOCATE( sf_tem(1)%fdta(jpi,jpj,jpk,2) ) 128 124 #endif … … 145 141 146 142 #if defined key_tradmp 147 IF( cp_cfg == "orca" 143 IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN 148 144 149 145 ! ! =======================
Note: See TracChangeset
for help on using the changeset viewer.