Changeset 1057 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2008-06-04T20:44:44+02:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diadimg.F90
r719 r1057 104 104 IF ( ln_dimgnnn ) THEN 105 105 WRITE(clname,'(a,a,i3.3)') TRIM(cd_name),'.',narea 106 OPEN (inum, FILE=clname, FORM='UNFORMATTED', ACCESS='DIRECT', RECL=irecl4)106 CALL ctlopn(inum, clname,'UNKNOWN','UNFORMATTED','DIRECT',irecl4,numout,lwp,1) 107 107 WRITE(inum,REC=1 ) clver, cd_text, irecl4, & 108 108 & jpi,jpj, klev, 1 , 1 , & … … 131 131 !! Standard dimgproc (1 file per variable, all procs. write to this file ) 132 132 !! * Open file 133 OPEN (inum, FILE=cd_name, FORM='UNFORMATTED', ACCESS='DIRECT', RECL=irecl4)133 CALL ctlopn(inum, cd_name,'UNKNOWN','UNFORMATTED','DIRECT',irecl4,numout,lwp,1) 134 134 135 135 !! * Write header on record #1 -
trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r1037 r1057 170 170 fsel(:,:,3 ) = fsel(:,:,3 ) + qsr (:,:) + qns (:,:) 171 171 fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:) 172 fsel(:,:,5 ) = fsel(:,:,5 ) + tb (:,:,1) - s st(:,:)172 fsel(:,:,5 ) = fsel(:,:,5 ) + tb (:,:,1) - sf_sst(1)%fnow(:,:) 173 173 #if ! defined key_dynspg_rl 174 174 fsel(:,:,6 ) = fsel(:,:,6 ) + sshn(:,:) ! SSH … … 182 182 fsel(:,:,11) = fsel(:,:,11) + hmlp(:,:) 183 183 fsel(:,:,12) = fsel(:,:,12) + fr_i(:,:) 184 fsel(:,:,13) = fsel(:,:,13) + s st(:,:)184 fsel(:,:,13) = fsel(:,:,13) + sf_sst(1)%fnow(:,:) 185 185 ! fsel(:,:,14) = fsel(:,:,14) + qct(:,:) 186 186 ! fsel(:,:,15) = fsel(:,:,15) + fbt(:,:) … … 249 249 fsel(:,:,1 ) = utau(:,:) * umask(:,:,1) 250 250 fsel(:,:,2 ) = vtau(:,:) * vmask(:,:,1) 251 fsel(:,:,3 ) = (qsr (:,:) + qn r(:,:)) * tmask(:,:,1)251 fsel(:,:,3 ) = (qsr (:,:) + qns (:,:)) * tmask(:,:,1) 252 252 fsel(:,:,4 ) = emp (:,:) * tmask(:,:,1) 253 fsel(:,:,5 ) = (tb (:,:,1) - sst(:,:)) *tmask(:,:,1)253 fsel(:,:,5 ) = (tb (:,:,1) - sf_sst(1)%fnow(:,:) ) *tmask(:,:,1) 254 254 255 255 #if ! defined key_dynspg_rl … … 264 264 fsel(:,:,11) = hmlp(:,:) * tmask(:,:,1) 265 265 fsel(:,:,12) = fr_i(:,:) * tmask(:,:,1) 266 fsel(:,:,13) = sst(:,:)266 fsel(:,:,13) = sf_sst(1)%fnow(:,:) 267 267 ! fsel(:,:,14) = qct(:,:) 268 268 ! fsel(:,:,15) = fbt(:,:) -
trunk/NEMO/OPA_SRC/SBC/sbcssr.F90
r1037 r1057 30 30 REAL(wp), ALLOCATABLE, DIMENSION(:) :: buffer ! Temporary buffer for exchange 31 31 32 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_sst ! structure of input SST (file informations, fields read)33 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_sss ! structure of input SSS (file informations, fields read)32 TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) :: sf_sst ! structure of input SST (file informations, fields read) 33 TYPE(FLD), PUBLIC, ALLOCATABLE, DIMENSION(:) :: sf_sss ! structure of input SSS (file informations, fields read) 34 34 35 35 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: erp !: evaporation damping [kg/m2/s]
Note: See TracChangeset
for help on using the changeset viewer.