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 – NEMO

Changeset 3195


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
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r3186 r3195  
    7979         iiceform       ,   &  !  1 = ice formed   ; 0 = no ice formed 
    8080         ihemis                !  dummy indice 
    81       REAL(wp), POINTER, DIMENSION(:) :: & 
    82          zqbgow           ,  &  !  heat budget of the open water (negative) 
    83          zfrl_old         ,  &  !  previous sea/ice fraction 
    84          zhice_old        ,  &  !  previous ice thickness 
    85          zhice0           ,  &  !  thickness of newly formed ice in leads 
    86          zfrlmin          ,  &  !  minimum fraction for leads 
    87          zdhicbot               !  part of thickness of newly formed ice in leads which  
     81      REAL(wp), POINTER, DIMENSION(:) ::   zqbgow      !  heat budget of the open water (negative) 
     82      REAL(wp), POINTER, DIMENSION(:) ::   zfrl_old    !  previous sea/ice fraction 
     83      REAL(wp), POINTER, DIMENSION(:) ::   zhice_old   !  previous ice thickness 
     84      REAL(wp), POINTER, DIMENSION(:) ::   zhice0      !  thickness of newly formed ice in leads 
     85      REAL(wp), POINTER, DIMENSION(:) ::   zfrlmin     !  minimum fraction for leads 
     86      REAL(wp), POINTER, DIMENSION(:) ::   zdhicbot    !  part of thickness of newly formed ice in leads which  
    8887                                !  has been already used in transport for example 
    8988      REAL(wp)  ::  & 

  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r3186 r3195  
    7474      REAL(wp), POINTER, DIMENSION(:) ::   zqcmlts        ! energy due to surface melting 
    7575      REAL(wp), POINTER, DIMENSION(:) ::   zqcmltb        ! energy due to bottom melting 
    76       REAL(wp), POINTER, DIMENSION(:) ::  & 
    77          ztsmlt      &    ! snow/ice surface melting temperature 
    78          ,ztbif      &    ! int. temp. at the mid-point of the 1st layer of the snow/ice sys.  
    79          ,zksn       &    ! effective conductivity of snow 
    80          ,zkic       &    ! effective conductivity of ice 
    81          ,zksndh     &    ! thermal cond. at the mid-point of the 1st layer of the snow/ice sys.  
    82          , zfcsu     &    ! conductive heat flux at the surface of the snow/ice system  
    83          , zfcsudt   &    ! = zfcsu * dt 
    84          , zi0       &    ! frac. of the net SW rad. which is not absorbed at the surface 
    85          , z1mi0     &    ! fraction of the net SW radiation absorbed at the surface 
    86          , zqmax     &    ! maximum energy stored in brine pockets 
    87          , zrcpdt    &    ! h_su*rho_su*cp_su/dt(h_su being the thick. of surf. layer) 
    88          , zts_old   &    ! previous surface temperature 
    89          , zidsn , z1midsn , zidsnic ! tempory variables 
    90       REAL(wp), POINTER, DIMENSION(:) ::   & 
    91           zfnet       &  ! net heat flux at the top surface( incl. conductive heat flux) 
    92           , zsprecip  &    ! snow accumulation 
    93           , zhsnw_old &    ! previous snow thickness 
    94           , zdhictop  &    ! change in ice thickness due to top surf ablation/accretion 
    95           , zdhicbot  &    ! change in ice thickness due to bottom surf abl/acc 
    96           , zqsup     &    ! energy transmitted to ocean (coming from top surf abl/acc) 
    97           , zqocea    &    ! energy transmitted to ocean (coming from bottom sur abl/acc) 
    98           , zfrl_old  &    ! previous sea/ice fraction 
    99           , zfrld_1d    &    ! new sea/ice fraction 
    100           , zep            ! internal temperature of the 2nd layer of the snow/ice system 
    101        REAL(wp), DIMENSION(3) :: &  
     76      REAL(wp), POINTER, DIMENSION(:) ::   ztsmlt         ! snow/ice surface melting temperature 
     77      REAL(wp), POINTER, DIMENSION(:) ::   ztbif          ! int. temp. at the mid-point of the 1st layer of the snow/ice sys.  
     78      REAL(wp), POINTER, DIMENSION(:) ::   zksn           ! effective conductivity of snow 
     79      REAL(wp), POINTER, DIMENSION(:) ::   zkic           ! effective conductivity of ice 
     80      REAL(wp), POINTER, DIMENSION(:) ::   zksndh         ! thermal cond. at the mid-point of the 1st layer of the snow/ice sys.  
     81      REAL(wp), POINTER, DIMENSION(:) ::   zfcsu          ! conductive heat flux at the surface of the snow/ice system  
     82      REAL(wp), POINTER, DIMENSION(:) ::   zfcsudt        ! = zfcsu * dt 
     83      REAL(wp), POINTER, DIMENSION(:) ::   zi0            ! frac. of the net SW rad. which is not absorbed at the surface 
     84      REAL(wp), POINTER, DIMENSION(:) ::   z1mi0          ! fraction of the net SW radiation absorbed at the surface 
     85      REAL(wp), POINTER, DIMENSION(:) ::   zqmax          ! maximum energy stored in brine pockets 
     86      REAL(wp), POINTER, DIMENSION(:) ::   zrcpdt         ! h_su*rho_su*cp_su/dt(h_su being the thick. of surf. layer) 
     87      REAL(wp), POINTER, DIMENSION(:) ::   zts_old        ! previous surface temperature 
     88      REAL(wp), POINTER, DIMENSION(:) ::   zidsn , z1midsn , zidsnic ! tempory variables 
     89      REAL(wp), POINTER, DIMENSION(:) ::   zfnet          ! net heat flux at the top surface( incl. conductive heat flux) 
     90      REAL(wp), POINTER, DIMENSION(:) ::   zsprecip       ! snow accumulation 
     91      REAL(wp), POINTER, DIMENSION(:) ::   zhsnw_old      ! previous snow thickness 
     92      REAL(wp), POINTER, DIMENSION(:) ::   zdhictop       ! change in ice thickness due to top surf ablation/accretion 
     93      REAL(wp), POINTER, DIMENSION(:) ::   zdhicbot       ! change in ice thickness due to bottom surf abl/acc 
     94      REAL(wp), POINTER, DIMENSION(:) ::   zqsup          ! energy transmitted to ocean (coming from top surf abl/acc) 
     95      REAL(wp), POINTER, DIMENSION(:) ::   zqocea         ! energy transmitted to ocean (coming from bottom sur abl/acc) 
     96      REAL(wp), POINTER, DIMENSION(:) ::   zfrl_old       ! previous sea/ice fraction 
     97      REAL(wp), POINTER, DIMENSION(:) ::   zfrld_1d       ! new sea/ice fraction 
     98      REAL(wp), POINTER, DIMENSION(:) ::   zep            ! internal temperature of the 2nd layer of the snow/ice system 
     99      REAL(wp), DIMENSION(3) :: &  
    102100          zplediag  &    ! principle diagonal, subdiag. and supdiag. of the  
    103101          , zsubdiag  &    ! tri-diagonal matrix coming from the computation 

  • 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.