/[MITgcm]/MITgcm/pkg/ptracers/ptracers_mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_mnc_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by edhill, Sun Oct 10 06:08:49 2004 UTC revision 1.5 by jmc, Mon Nov 5 18:48:04 2007 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP
8  C     !ROUTINE:  C     !ROUTINE:
9          
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE PTRACERS_MNC_INIT( myThid )        SUBROUTINE PTRACERS_MNC_INIT( myThid )
12          
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     Initialize PTRACERS parameters, read in data.ptracers  C     Initialize PTRACERS parameters, read in data.ptracers
15    
# Line 18  C     !USES: Line 18  C     !USES:
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
21  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    
24  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 70  C         Add the units attribute if its Line 70  C         Add the units attribute if its
70              CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),'units',              CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),'units',
71       &           PTRACERS_units(ii),myThid)       &           PTRACERS_units(ii),myThid)
72            ENDIF            ENDIF
73              
74          ENDDO          ENDDO
75            
76        ENDIF        ENDIF
77  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
78  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22