Changeset 1057


Ignore:
Timestamp:
2008-06-04T20:44:44+02:00 (12 years ago)
Author:
rblod
Message:

ctlopn with dimg diagnostics and additonnal stuff related to dimg

Location:
trunk/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diadimg.F90

    r719 r1057  
    104104    IF ( ln_dimgnnn  ) THEN 
    105105       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) 
    107107       WRITE(inum,REC=1 ) clver, cd_text, irecl4, & 
    108108            &     jpi,jpj, klev, 1 , 1 ,            & 
     
    131131       !! Standard dimgproc (1 file per variable, all procs. write to this file ) 
    132132       !! * 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) 
    134134 
    135135       !! * Write header on record #1 
  • trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

    r1037 r1057  
    170170       fsel(:,:,3 ) = fsel(:,:,3 ) + qsr (:,:) + qns  (:,:)  
    171171       fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:) 
    172        fsel(:,:,5 ) = fsel(:,:,5 ) + tb  (:,:,1) - sst(:,:) 
     172       fsel(:,:,5 ) = fsel(:,:,5 ) + tb  (:,:,1) - sf_sst(1)%fnow(:,:) 
    173173#if ! defined key_dynspg_rl 
    174174       fsel(:,:,6 ) = fsel(:,:,6 ) + sshn(:,:)    ! SSH 
     
    182182       fsel(:,:,11) = fsel(:,:,11) + hmlp(:,:) 
    183183       fsel(:,:,12) = fsel(:,:,12) + fr_i(:,:) 
    184        fsel(:,:,13) = fsel(:,:,13) + sst(:,:) 
     184       fsel(:,:,13) = fsel(:,:,13) + sf_sst(1)%fnow(:,:) 
    185185       !        fsel(:,:,14) = fsel(:,:,14) + qct(:,:) 
    186186       !        fsel(:,:,15) = fsel(:,:,15) + fbt(:,:) 
     
    249249          fsel(:,:,1 ) = utau(:,:) * umask(:,:,1) 
    250250          fsel(:,:,2 ) = vtau(:,:) * vmask(:,:,1) 
    251           fsel(:,:,3 ) = (qsr (:,:) + qnr (:,:)) * tmask(:,:,1) 
     251          fsel(:,:,3 ) = (qsr (:,:) + qns (:,:)) * tmask(:,:,1) 
    252252          fsel(:,:,4 ) = emp (:,:) * tmask(:,:,1) 
    253           fsel(:,:,5 ) = (tb  (:,:,1) -sst(:,:)) *tmask(:,:,1) 
     253          fsel(:,:,5 ) = (tb  (:,:,1) - sf_sst(1)%fnow(:,:) ) *tmask(:,:,1) 
    254254 
    255255#if ! defined key_dynspg_rl 
     
    264264          fsel(:,:,11) = hmlp(:,:) * tmask(:,:,1) 
    265265          fsel(:,:,12) = fr_i(:,:) * tmask(:,:,1) 
    266           fsel(:,:,13) =  sst(:,:)   
     266          fsel(:,:,13) = sf_sst(1)%fnow(:,:) 
    267267          !         fsel(:,:,14) =  qct(:,:) 
    268268          !         fsel(:,:,15) =  fbt(:,:) 
  • trunk/NEMO/OPA_SRC/SBC/sbcssr.F90

    r1037 r1057  
    3030   REAL(wp), ALLOCATABLE, DIMENSION(:)   ::   buffer   ! Temporary buffer for exchange 
    3131 
    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) 
    3434 
    3535   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   erp       !: evaporation damping                          [kg/m2/s] 
Note: See TracChangeset for help on using the changeset viewer.