Changeset 389 for trunk/NEMO/OPA_SRC/SBC
- Timestamp:
- 2006-03-09T18:22:04+01:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC/SBC
- Files:
-
- 6 edited
-
flx_bulk_daily.h90 (modified) (1 diff)
-
flx_bulk_monthly.h90 (modified) (4 diffs)
-
flx_forced_daily.h90 (modified) (2 diffs)
-
flxrnf.F90 (modified) (3 diffs)
-
tau_forced_daily.h90 (modified) (4 diffs)
-
tau_forced_monthly.h90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/flx_bulk_daily.h90
r247 r389 79 79 REAL(wp), DIMENSION(jpk) :: zlev ! ??? 80 80 CHARACTER(len=45) :: & 81 clname_n = 'tair_1d.nc', & 82 clname_c = 'hum_cloud_1m.nc', & 83 clname_x = 'rain_1m.nc', & 81 clname_n , & 82 clname_c , & 83 clname_x , & 84 clname_w 85 !!--------------------------------------------------------------------- 86 clname_n = 'tair_1d.nc' 87 clname_c = 'hum_cloud_1m.nc' 88 clname_x = 'rain_1m.nc' 84 89 clname_w = 'wspd_1d.nc' 85 90 !!--------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90
r319 r389 95 95 zlon , zlat ! ??? 96 96 CHARACTER (len=32) :: & 97 clname = 'flx.nc'! flux filename97 clname ! flux filename 98 98 !!--------------------------------------------------------------------- 99 clname = 'flx.nc' 99 100 100 101 … … 131 132 132 133 ! title, dimensions and tests 134 #if defined key_AGRIF 135 if ( .NOT. Agrif_Root() ) then 136 clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 137 endif 138 #endif 133 139 CALL flinopen( clname, mig(1), nlci, mjg(1), nlcj, & 134 140 & .FALSE., ipi, ipj, ipk, zlon, zlat, zlev, & … … 202 208 WRITE(numout,*) 203 209 WRITE(numout,*) 'Clio mounth: ',nflx1,' field: ',jm,' multiply by ',0.1 204 CALL prihre(flxdta( 1,1,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)210 CALL prihre(flxdta(:,:,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout) 205 211 END DO 206 212 ENDIF … … 269 275 WRITE(numout,*) 'jpf = ', jpf !C a u t i o n : information need for SX5NEC compilo bug 270 276 WRITE(numout,*) 'Clio mounth: ',nflx11,' field: ',jm,' multiply by ',0.1 271 CALL prihre(flxdta( 1,1,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)277 CALL prihre(flxdta(:,:,1,jm),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout) 272 278 WRITE(numout,*) 273 279 END DO -
trunk/NEMO/OPA_SRC/SBC/flx_forced_daily.h90
r247 r389 118 118 ! Close/open file if new year 119 119 120 IF( nyearflx /= 0 ) CALL flinclo(numflx)120 IF( nyearflx /= 0 .AND. kt /= nit000 ) CALL flinclo(numflx) 121 121 122 122 iy = nyear 123 123 IF(lwp) WRITE (numout,*) iy 124 124 WRITE(clname,'("flx_1d.nc")') 125 #if defined key_AGRIF 126 if ( .NOT. Agrif_Root() ) then 127 clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 128 endif 129 #endif 125 130 IF(lwp) WRITE (numout,*)' open flx file = ',clname 126 131 CALL FLUSH(numout) … … 172 177 WRITE(numout,*) 173 178 WRITE(numout,*) ' Q * .1, day: ',ndastp 174 CALL prihre(flxdta( 1,1,1),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)179 CALL prihre(flxdta(:,:,1),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout) 175 180 WRITE(numout,*) 176 181 WRITE(numout,*) ' QSR * .1, day: ',ndastp 177 CALL prihre(flxdta( 1,1,2),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout)182 CALL prihre(flxdta(:,:,2),jpi,jpj,1,jpi,20,1,jpj,10,.1,numout) 178 183 WRITE(numout,*) 179 184 WRITE(numout,*) ' E-P *86400, day: ',ndastp 180 CALL prihre(flxdta( 1,1,3),jpi,jpj,1,jpi,20,1,jpj,10,86400.,numout)185 CALL prihre(flxdta(:,:,3),jpi,jpj,1,jpi,20,1,jpj,10,86400.,numout) 181 186 WRITE(numout,*) ' ' 182 187 ENDIF -
trunk/NEMO/OPA_SRC/SBC/flxrnf.F90
r322 r389 104 104 # endif 105 105 CHARACTER (len=32) :: & 106 clname = 'runoff_1m_nomask'! monthly runoff filename106 clname ! monthly runoff filename 107 107 INTEGER, PARAMETER :: jpmois = 12 108 108 INTEGER :: ipi, ipj, ipk ! temporary integers … … 117 117 zcoefr ! coeff of advection link to runoff 118 118 !!---------------------------------------------------------------------- 119 clname = 'runoff_1m_nomask' ! monthly runoff filename 119 120 120 121 IF( kt == nit000 ) THEN … … 266 267 ! when reading the NetCDF file runoff_1m_nomask.nc 267 268 IF( cp_cfg == 'orca' .AND. jp_cfg == 2 ) THEN 268 DO jj = 1, jpj 269 DO ji = 1, jpi 270 IF( gphit(ji,jj) > 40 .AND. gphit(ji,jj) < 65 ) runoff(ji,jj) = 0.85 * runoff(ji,jj) 271 END DO 269 DO jj = 1, jpj 270 DO ji = 1, jpi 271 IF( gphit(ji,jj) > 40 .AND. gphit(ji,jj) < 65 ) runoff(ji,jj) = 0.85 * runoff(ji,jj) 272 272 END DO 273 END DO 273 274 ENDIF 274 275 -
trunk/NEMO/OPA_SRC/SBC/tau_forced_daily.h90
r247 r389 14 14 15 15 CHARACTER (len=34) :: & !!! * monthly climatology/interanual fields 16 cl_taux = 'taux.nc', & ! generic name of the i-component monthly NetCDF file17 cl_tauy = 'tauy.nc'! generic name of the j-component monthly NetCDF file16 cl_taux , & ! generic name of the i-component monthly NetCDF file 17 cl_tauy ! generic name of the j-component monthly NetCDF file 18 18 !!---------------------------------------------------------------------- 19 19 !! OPA 9.0 , LOCEAN-IPSL (2005) … … 67 67 REAL(wp) :: zsecond, zdate0 68 68 !!--------------------------------------------------------------------- 69 cl_taux = 'taux.nc' 70 cl_tauy = 'tauy.nc' 69 71 70 72 ! -------------- ! … … 91 93 ENDIF 92 94 ! title, dimensions and tests 95 #if defined key_AGRIF 96 if ( .NOT. Agrif_Root() ) then 97 cl_taux = TRIM(Agrif_CFixed())//'_'//TRIM(cl_taux) 98 endif 99 #endif 93 100 94 101 CALL flinopen( cl_taux, mig(1), nlci, mjg(1), nlcj, & ! taux on U-grid … … 110 117 nstop = nstop + 1 111 118 ENDIF 119 #if defined key_AGRIF 120 if ( .NOT. Agrif_Root() ) then 121 cl_tauy = TRIM(Agrif_CFixed())//'_'//TRIM(cl_tauy) 122 endif 123 #endif 112 124 113 125 CALL flinopen( cl_tauy, mig(1), nlci, mjg(1), nlcj, & ! tauy on V-grid -
trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90
r319 r389 14 14 15 15 CHARACTER (len=34) :: & !!! * monthly climatology/interanual fields 16 cl_taux = 'taux_1m.nc', & ! generic name of the i-component monthly NetCDF file17 cl_tauy = 'tauy_1m.nc'! generic name of the j-component monthly NetCDF file16 cl_taux, & ! generic name of the i-component monthly NetCDF file 17 cl_tauy ! generic name of the j-component monthly NetCDF file 18 18 19 19 REAL(wp), DIMENSION(jpi,jpj,2) :: & … … 77 77 zxy ! coefficient of the linear time interpolation 78 78 !!--------------------------------------------------------------------- 79 cl_taux = 'taux_1m.nc' 80 cl_tauy = 'tauy_1m.nc' 79 81 80 82 ! -------------- ! … … 106 108 107 109 ! title, dimensions and tests 110 111 #if defined key_AGRIF 112 if ( .NOT. Agrif_Root() ) then 113 cl_taux = TRIM(Agrif_CFixed())//'_'//TRIM(cl_taux) 114 endif 115 #endif 108 116 109 117 CALL flinopen( cl_taux, mig(1), nlci, mjg(1), nlcj, & ! taux on U-grid … … 126 134 nstop = nstop + 1 127 135 ENDIF 128 136 #if defined key_AGRIF 137 if ( .NOT. Agrif_Root() ) then 138 cl_tauy = TRIM(Agrif_CFixed())//'_'//TRIM(cl_tauy) 139 endif 140 #endif 129 141 CALL flinopen( cl_tauy, mig(1), nlci, mjg(1), nlcj, & ! tauy on V-grid 130 142 .FALSE., ipi , ipj, ipk , & … … 185 197 WRITE(numout,*) 186 198 WRITE(numout,*) ' month: ', ntau1, ' taux: 1 multiply by ', 1. 187 CALL prihre( taux_dta( 1,1,1), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout )199 CALL prihre( taux_dta(:,:,1), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout ) 188 200 WRITE(numout,*) 189 201 WRITE(numout,*) ' month: ', ntau2, ' tauy: 2 multiply by ', 1. 190 CALL prihre( tauy_dta( 1,1,2), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout )202 CALL prihre( tauy_dta(:,:,2), jpi, jpj, 1, jpi, 20, 1, jpj, 10, 1., numout ) 191 203 ENDIF 192 204
Note: See TracChangeset
for help on using the changeset viewer.
