New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3195 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC – NEMO

Ignore:
Timestamp:
2011-12-06T17:40:25+01:00 (12 years ago)
Author:
smasson
Message:

syntaxe change to clearly indentify work arrays

Location:
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90

    r3186 r3195  
    5757      REAL(wp), DIMENSION ( 2 )  ::   zsurfx, zsurfy   ! surface of the face of the mesh 
    5858 
    59       INTEGER , POINTER, DIMENSION ( : )  ::   & 
    60          iil, ijl, ikl,             &     ! index of nearest mesh 
    61          iiloc , ijloc,             & 
    62          iiinfl, ijinfl, ikinfl,    &     ! index of input mesh of the float. 
    63          iioutfl, ijoutfl, ikoutfl        ! index of output mesh of the float. 
    64       REAL(wp) , POINTER, DIMENSION ( : )  ::    & 
    65          zgifl, zgjfl, zgkfl,       &     ! position of floats, index on  
    66                                           ! velocity mesh. 
    67          ztxfl, ztyfl, ztzfl,       &     ! time for a float to quit the mesh 
    68                                           ! across one of the face x,y and z  
    69          zttfl,                     &     ! time for a float to quit the mesh  
    70          zagefl,                    &     ! time during which, trajectorie of  
    71                                           ! the float has been computed 
    72          zagenewfl,                 &     ! new age of float after calculation  
    73                                           ! of new position 
    74          zufl, zvfl, zwfl,          &     ! interpolated vel. at float position 
    75          zudfl, zvdfl, zwdfl,       &     ! velocity diff input/output of mesh 
    76          zgidfl, zgjdfl, zgkdfl           ! direction index of float 
     59      INTEGER  , POINTER, DIMENSION ( : )  ::   iil, ijl, ikl                   ! index of nearest mesh 
     60      INTEGER  , POINTER, DIMENSION ( : )  ::   iiloc , ijloc               
     61      INTEGER  , POINTER, DIMENSION ( : )  ::   iiinfl, ijinfl, ikinfl          ! index of input mesh of the float. 
     62      INTEGER  , POINTER, DIMENSION ( : )  ::   iioutfl, ijoutfl, ikoutfl       ! index of output mesh of the float. 
     63      REAL(wp) , POINTER, DIMENSION ( : )  ::   zgifl, zgjfl, zgkfl             ! position of floats, index on  
     64      !                                                                         ! velocity mesh. 
     65      REAL(wp) , POINTER, DIMENSION ( : )  ::    ztxfl, ztyfl, ztzfl            ! time for a float to quit the mesh 
     66      !                                                                         ! across one of the face x,y and z  
     67      REAL(wp) , POINTER, DIMENSION ( : )  ::    zttfl                          ! time for a float to quit the mesh  
     68      REAL(wp) , POINTER, DIMENSION ( : )  ::    zagefl                         ! time during which, trajectorie of  
     69      !                                                                         ! the float has been computed 
     70      REAL(wp) , POINTER, DIMENSION ( : )  ::   zagenewfl                       ! new age of float after calculation  
     71      !                                                                         ! of new position 
     72      REAL(wp) , POINTER, DIMENSION ( : )  ::   zufl, zvfl, zwfl                ! interpolated vel. at float position 
     73      REAL(wp) , POINTER, DIMENSION ( : )  ::   zudfl, zvdfl, zwdfl             ! velocity diff input/output of mesh 
     74      REAL(wp) , POINTER, DIMENSION ( : )  ::   zgidfl, zgjdfl, zgkdfl          ! direction index of float 
    7775      !!--------------------------------------------------------------------- 
    7876      CALL wrk_alloc( jpnfl , iil   , ijl   , ikl   , iiloc  ,  ijloc           ) 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_inter_sup.F90

    r3186 r3195  
    121121         & pgval            ! Stencil at each point 
    122122      !! * Local declarations 
    123       REAL(KIND=wp), POINTER, DIMENSION(:,:,:) :: & 
    124          & zval 
     123      REAL(KIND=wp), POINTER, DIMENSION(:,:,:) ::   zval 
    125124      REAL(KIND=wp), DIMENSION(kptsi,kptsj,1,kobs) ::& 
    126125         & zgval  

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_altbias.F90

    r3186 r3195  
    101101         & zglam, & 
    102102         & zgphi 
    103       REAL(wp), POINTER, DIMENSION(:,:) :: & 
    104          & z_altbias 
     103      REAL(wp), POINTER, DIMENSION(:,:) ::   z_altbias 
    105104      REAL(wp) :: zlam 
    106105      REAL(wp) :: zphi 
Note: See TracChangeset for help on using the changeset viewer.